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- Chap-^er TA2 -\ • - 

. INHJT-OUTHJT AND ^ASSIGNMENT STATEMENTS 



Summary of Chapter " A2 

^ Enough of the ALGOL language is introduced in this chapt^;to enable a 
student ^ write very sin5)ie programs .\ One series of exercises is arranged 'in 
such a way as' to build up complete prlrams, ariy or all of which, can be com- 
puter tested. These are exercises 1-^ at Wend' of sections ' ' / > \ 
. , • A2-3 Set A , ' ^"^^ 

• Set B >' \ ' " • ' \ ^' ' ' 

and , 'A2^7. - ' . * • / t . 

In addition, ^ Exercise 8/ Sectioh A2-7/is also recommended for computer 
testing.' ^It wi,ll -be interesting ^o the b^fter^ students. You may nfeed to give 
the students some. special help -wl-th this one. * ' » 

The outline: * ' ' . ' ' ^ ' • 

S ' ■ _ ' 

A2-1 _ Some batkgrouncl' on What is ALGOL 'and- whtft ALGOL programs' look 
-like. , / ■' • • Af- ■ . . ' 

. A2^2 The elements of the language, its characters, nufhier als for 

constants, Variables , labels, names fpr functions, operators;^ ' 
and »special^ymbols . '-^ ' . 

. A2-3 The read afi4 print statements are fntroduced. SJiice ALGOL does 

riot .^pecify^ foripat codes for describing input and output records 
only a -gerferal awareness of the ^l?iem 'is transmitted- to the 
. , students, A suggested f re^ form f 02- data cards and a standard- 
-formatted output are-ima^fed.^ These are explained by discugs-' 
mg the execution of redd and print procedures in^a typical • 
\ ^ ALGOL imjilementati on. . p - , ^^'"^ ./ • 

^ A2-4f The .assignment statement ia explained largely in terks'of Vhat 
been^earned* from the extensive material' in the flow chart 
tejt. ..The student should pay atte-nti-oxi ^to -the difference bei- 
tween r^al and integer division, . the latter being explained in 
terms of the ^greatest integer function. ' 

^ A2^p Order' gf icorr^utation in an AL(|l expression is e^cf^irined iij? 

' « . " terms of the material givjp in -the flow chart -texji* , ' t 

>A2-6 '(^nvgrting'' integers^ to reals a\id. vice versa is sh(2vn to be dceom- 
plished oy the assignment statement. * » -» 

w ■ .; 



A2-7 A simple (but complete) AlGOL^ program is disj^layed and a set of 
exercises given where ^he student- -is asked to^write his first 
V ^ complete prograjps. The ^opc^ept of "head" and ^"body" of .a pro- 
. ^ ^ gram is introduced. .So is the notion of a ccmppund statement * 
.as opposedxto a sunple statement, .The concept of a ^^lock" is 
/ not'mentioned, however. j ' 

Literature bs ALGOL 60 and its li5^)lementatidn v^^' 

A nonexhaustive Uist is provided here. • - . 

Reference manuals (The manuals .listed are revised frequently and the 
dpcument' numbers that are given may not reflect the latest revision.) 

, ^ * ' / ^ • . • Computer 

1. "{bet ended ALGOL Reference Manual for the ; . 

B5000*" Burroughs Corp., Bull. No. 5000^21012 B5500 , * 

2. "Miscellaneous Facilities of Extended ^GOL for ' 
^ B5000." Burroughs Corp., Bull. No. 5000-21013^ 

3. Burroughs Algebraic Compiler, Bull. No. 220-21017 *B220 

ALCOR Algol for the IBM 7090 ' . ' ' ' IBM 7090/9^ " 

Latest reference manual avai^ble from the 
University of Illinois Computer Laboratory 

Primers , guides ^nd other texts ' ^ ' • 

The best ^purce" of such material -is the SMSG annotated bibliography 
entitled "Si^udy Guide'. in digital ^^oirrputing and Related Math.ematics," 
. which is reprinted a*t the end of the Teachers Commentaisy for the 
Main Text. See especially the references menyoned in Se'ction III^ 
Algorithmic Languages,.* 



■ ■ ' ■ ■■ ^. TA2-1 

A2-1 "Target" programs arid source programs" / • • 

Terminology obanees rapi^y -in a field whic^ is rnoving as rapidly as the 
^^ccmputer fieM/ Most of the (rider literature uid the te^nl ^ object program; 
We Bre using the currently preferred term in\ chci^sing^ the vord target. 

-In addition the normal manner "of «)rocessing a soui-ce program as de- 
^scribed in the student [text, there is an alternative approach which is wort^ ' 
knowing abou£. In ^his abproach, the processor or- compiler program produc'e's 

target program which is e^tecuted in the "interpretive mode." 
t • — ^ ^ ■- 

This t^-pe^cf target program ^consists instructions that are not strictly 

machine cedes. 'They are machine-UKe instruction codes, oft^n called an 

"!ntbrpretive" cQde. ' r ' ' 

xn^crder tc execute such a tarc:et, a specially developed "interpreter" 
prcgra>n must be 'stoij^d in memcr;y- along wilh the target before execution can 
proceed. Such ccmpilers have been very successful, especially 'on machines 
with limited memory such as" the IBM l620.^ The' interpreter program has the. task 
cV .interpreting and then carr^^ng out the intent of each pseudo instruction ' 
of th^ target code. The interpreter program in a sense simulates a computer 
-^.Ithin a computer. The success. jDf these compilers is explained by th^fac?b 
that an AL^L source program translated into interpretive v\ode often occupies * 
far less- memor^^ (feyer pseudo instructions) than an 'ALGOL source program whl^h 
i>s tra-nelated into machineJcode (more actual instructions)^. In the former 
>(intefpretive) case, the total combined memory reguirement for t/^^ ;,nterpretlve 
code ^produced by the compiler and the interprller program is norijially^less thanx^ 
that for the straight maehipe code:. It is foi^this reason that. this approach 
is popular for* machines of limited' memory .V ^ the other hand,*the latter 
(machine code) case normally results in fas'ter-running programs. 

W Some computers have been 'designed and built so that the task of compiling 
i^ made easy. ^The Burroughs computer is an example. "An ALGOL compiler 

for thfs-coraputei; develops a target program -expressed in machine code ' which is 
_as compact as cguld bg (Obtained with most interpretive approaches so the 
advantages* of ^botK storage economy and running speed' are"*thereby achieved with 
esserflially none of-^e disadvantages'. * 



TA2-2 

* A2-2 The Character Set. ' ' . . * - • . 

Many of the characters shown in Table A2-1 are also shown in the card pic- 
ture, Figure 1-15 in Chapter 1 of the main text. • » 

The special arrangement of letters and digi,ts in Table, A2-1 is to empha-^ 
size that .l*ettefs and digits in the same column 'df the table have one hole 
punch of their c6de in common. For example, if yoU inspect 'the 'card_ picture 
you will see that -the lettexs E, and V and 'the digit 5 each* have a 
T)unch in row 5 . ' • i 

i' 

Character ^ Row punches used, 

' . ■ • E •• 12, 5 ■ ■ 

^ • N 11, 5 ^ ' ' . •■ . 

■• - V ■ > ■ 0, 5 ■ , - 

■ ^. .5 ^ ;^ % -'5 - . ^ ■ 

'Those characters which are not' shown ih Figure I-I5 are generally not 
available, on the standard "office printing key purkih" which is usually t^e 
' IBM Mo^ei 026. Special models are being built, not alwj^s available, which - 
have many 'Q.f the special characters neeied in ALGOL programs, like 



t ■ " 



< ^ Notice that even wi^hya special key punch w^ still lack the lower case 
* letters. Accordingly,, when translating a hand^^T"^ tten ALGOL program to punch 
cards, a ^umber cf agreements and compromises must still be made, and even* if 
we coulA key .punch, the lower case lettersy we would sti'll have a proi3]^era in * 
> -recbgnizlng the underlined or boldfaced words like begin , comment ,. go to and 
* . end . * ' • . ' ^ ' 

• The significance^ of these special symbols in ALGOL is explained ^t the end 

J, of Section A2-2. 'l{o^,-then, do computer implementations of ALGOL distinguish 

between, say ' . • » . 

• » " » • ♦ • 

y - begin , begin,- and BEGIN " 

if all ^hree must be punched on a card in upper case? The answer is they can- 

- ' * • . 

not be' distinguished. Two approaches to a solution to this difficulty have , - 

,been used. The first approach requires, that s6me special delitniter ci^aracter, 

like the apostrophe, be placed- on either side of the word if we mean the sper 

cial symbol. Thus, begin si;ould aappear as »b.egin*. ^ In this same approach the 

identifier^ begin and BEGIN in an ALGOL program would both be punched as BEGIN' 

and must therefore have -the ^ame meaning. * , ^ - 



• h 9 



ERLC 



The second, approach is simply to reserve character strings like BEGIN, GO 
TO, END, REAL, etc. That is, gi-ve them olne meaning cnly--namely the special 
symbols begin , go to, end, real, etc.. This means we ma^ not use the same char- 
acter strings as variables, labels, or function names. ^The programmer's job, 
ther\, ,is to memorize these 15 or 20 speci^al symbols and be sure nevejr to use 
' the'se in any other context. . ' ^ ^ y- 4 ' 

• The punched cards which are illustrated in Figure A2^ were prepared on a / 
speciai IBM -Model 026 key punch to which seven special characters have bee^ 
added. TheSe are -A 

9 * 'Mi' 

— <^ ; 

It has a special puncji, the' — , which is used to si^:nify the ACgOL assi^niment 

symbol' ^1;. = ) . 3;^ cno^ ccmpiler syste-n the — , produced a sincie key stroke, 
,;must,be used when \ie mean the. assignmen-J sumbol :=, even though Jboth : and = 
^ are .a Is©, .part cf the set. This Is because := in ALGOL 'is thou^.^ht,of as a 

single character a*nd*not a pair^of !;haracters. ^ Figure TA2-1 shows the iull 

character set available on the 'special IBM 026. ' 



0\224567'd9 ABCDEFGHt JKlMNOPQR ?TIJV;ift<YZ =^5v m'^)/ Q^: xr;^ + 



lllllllll 



- i 



I i 



. IIIIIIHI \ I ^ 

|QQ41QQOQQ0O0p00 00000000000 00000 O'O ||||||||of |0 0 0 0 l/d 0 0 0 0 |0 0 0 0 0 |0 0 0 0 0 0 0 0 0 0 0 0 O Q 0 0 0 0 

1 1 1 M u 1 1 1 1 1 1 1 1 1 1 11 11 11 1 11 11 11 11 1 n 1 11 nj 11 1 ?^ 1 1 i n 1 1 1 1 1 1 1 1 11 1 1 n 1 11 11 11 11^^ 

^ 2|22 2 22 2222 22|22 2222 2221222^222221222522^22222/222222 2222 22 22222222222 

3 3 3 |3 3 3 3 3 3 3 3 3 3 3 |3 3 3 3 3 3 3 3 3 |3 3 3 3 3 3 3 3 13 31 3 3 3 3 1111^ 3 3 3 3 3 3 3 373 3 3 3 3 3 3 3 3 3 3 3 3 3 

4 4 4 4|4 4 4 4 4 4 4 4 4 4 4 |4 4 4 4 4 4 4 4 4 |4 4 4 4 4 4 4 4 14 4 4 4 4 4 4 4 4 4/4 ||||4 4 4 4 4 4 4 4 444444444444 
5^5 5 5 1 5 5 5 5 5 5 5 5 5 5 5 |5 5 5 5,5 5 5 5 5 |5555S^ 5 5 5 |5 5 5 5 5 5 5 5^ 5 5 5 5 5 5 11115 5 5 5 5 5 5 5 5 5 5 5 5 5 5 
666666|66666666666|666666666|66666666|666666t666666666666 II ||6 666666666 

. 7 7 7 7 7 7 7 17 7 7 7 7 7 7 7 7.7 717.7 7 7 7-7 7 7 7 |7 7 7 ) 7 7 7 7 |7 7 7 7 77 7 T^J 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 



2222 2222 
33333333 
4 4 4 4 4^444 
55555555 
6 6 6 6 6^66. 



8 8M 8 8 8 8 |88S 8 8 8 8 8 t;8|84t8t8l8S|8 8 8 8 8 l88|t8| 



77777777 

\ 

H8|ll|8|IIIS||||888 888 8888 888888888 



9 999999 99 19 9 9 9 3 9 9 9 9 9 9 19 9 9 9 9.9 9 9 9 |9 9 9 9 9 9 9 9 |9id 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 ^99999 9 99999 99 999 99999 

t 2 3 4 5 • f I » JO II 12 I) •* a •» IJ « n 20 21 M2J ' — * - - 



721M2)2t^] 2t»M Jl )2 3lMn)()I3| »40 41 4^4) 44 43 4« 4) 4*41 i3 31 32 U &4 S3 S« if iO II U 13 (4 » U li U (» N n /2 <3 M R /< i4 » n lO 



Figure TA2-1. Punch card codefe realized on the 'special 
IBM Model 026 key punch 
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Specxa], Characters 

i X /e uf the special enaracters in Figure 1-15 were placed key punches 
when ALGOL beca-ne availably several years a.^c, Prior to that time, other spV 
cial characters preferred tue business community were used. The businessX 
contnanity was and stiil is the largest user of key punches. Sl, if you- need 
-wcy punches for yoiu: laboratory classes and cbtaii! the i;us£ of a "business" key 
punch, you can^expeet the ivcys to display a different set cf special characters 
Tnere is an equivalence between the ALGOL set and any ether* s,et in the sense 
that up' to nov all key ptiuch machines pynch only one set^cf hole' ccmb-i nations, ^ 
i.e., the ones shown ofi the card ^ictui'e. Oi^ly the characters, printed on the 
k«ys, and tne c^rrespcudinr characters tiiat print at the very top cf the card 
in each ccluinr'^ "La:> d^flVr. The -nest tvpicai ^qiJL vBlence is 

ALGOL- ' 



sCnic 



(apcstrouhe) 



Business 

€7 . ( lozenge) ' 
& (ampersand) 

(at, e^ch) 
- (dash) 



' 1 nterpr e tati on of the sbmlco^n , *^ * ' 

' Ir. l;ae student text v/e are empl;jyin£- the semicolon as if it were a state- 
•nent ternilnator . That, is, we ar-, suge^estin^: tc'the student that t^ie semicolon 
be -used tv> termi^iatc each statement. Strictly speaking, however,- the semi- 
ccl:»fi Is used to separate , statements. It certain instances the semicolon is < 
not strictly necessaiy, especially when a statement is followed by end. Thus^ 
in F*£;ure A2^m- the^seinlcclc n nsed in " 

^ * ill ±£ START; ' ' 

is li^t necessary. ^Since in these instances the superfluous semicolon does no 
hai-in, we prefer to U3e it consistently rather than to frequently Call the* 
student's attention to the fact that it is ^unnecessary. 
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! !Angver3 tfO ^cercise <^2-2 Set A ' 

NuAbers below ar^ constructeejjfrom parts shown below: 
p-ll^ -K)!* i; 2b, 3" \ 

, 5.2.0 , * 2c 
^ -017. li+ 1, 2c/ 
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10' 



.10^^10 



3 



where 

1 means sign 
2b means, integral part 



2c means fractional and 
^integral part« 

3 means scale'T^tOT — ^ 



^ Answers Exercise A2-2 Set ^ 

2JdKN is invalid since the fjfrst character is not a-le^tter a - z cr 



'H/k 
^F-6 



are invalid since tJTey each contain a special character that / 



i's neither letter nor a digit.* • 



/ 



i • . 
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A2-3 Input" Output. Statements \ 

When assigning these exercises, you may wish to suggest that all* the» 
students use the same data 'values. In exercises of Set B of this section, the 
students may want to ccsnpute results fox ^a^er coiapari^on with conjputer out- - 
-put^to ]De developed with the exercises in A2-7 Set B. One set of suggested 



data v&lu^^ is given here. 
















* ' For Exercise 


1 






3.967' 








• < 


2 


11 


n 




20/ i 


= •3,. and . 


h 




^ ' * If 


3 


11 


. A- 




3.0, 


B \ 4.0, = 


-2:5, 


D = 1.5, and 








X 




2.0 








~ - 11 ^ 


k 


11 


m 






and n 2.0 






11 


5 


11 


A 




h.lh, 


Y = '2.01 \ . 






■ * - 


6 


- 11 


'r 




10.0, 


s' = 9-0 . and 


PHI = 


1.11977 ■ 



(arc sine of 

* i-M 



The answers below may differ in detail from what is correct in yoior 

system. Make the necessary Corrections. In (particitkar if you use pui;ch carda, 

* " • ^ >- ^ " . ' / 
oi^y upper case lettel:s are available. Also scj:>me sy$tems' use*poimnas to sepa- 
rate numerals on 'data^'dards instead of blanks./ ' - * 



An ders to Exercises A2-3 Set A 
r^ad statement 
1. read (t); . ^ , 



Data card picture 




2.. 



t-'read (n, i, j);. 



/^3 ^ 
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read (A, B, C, D, X); 



read (in, n); 




^12.5 20 



read (A, Y)'/ 



%.lk 2,01 



At 



read (r, s, PHl);. 



Ansv^rs to Exercises A2-3 Set 
write statement 



write (Z)'r 
write (z); 
write (z)j 
ip^te (Q)i 
write (X)j • 




ARCSIN (^) 



appearaface* of printed result 
[actual val\;\e'9 ' 



3 
k 
5 



. 36.5000I • 



ty.OOOCl 



QA911 ■ 



,6 



write (area) 



5.8726 



The. student* need not be asl^ed to develop' to results vith as many place 
as^ shown here for 5^ and' .6, Three-place accuracy is probabl^^ 
sufficient in all -cases. ! Collect. the^_ second ^olxQim^V>P_pea^^ of .printed 
result"^ to apply to your particular coniputer* * ^ 



Answers to Exerc ise A2-4 Set A 
1. • 



operands 


• operation ^ 


Type of result 


A 


B 




A 0 B 


• 2 


3 


+ 


^integer 


6.3^ 


.09' 


X 


real 


lOCt' 


.\ • 




real 


6 




/ 


real 


6 






undefined 



Verify 4ng the matheiaatical formula ibr Integer division 



Case 


A 




• ® 
;(A/B) 


(^^^ 

. sign(A/B) 
Ik 


abs(A/B) 


entier(abs(A/B)) 


/ ♦ B 


1 
2 


• 

. 9 


-^.iO 
-10 


0.9 * 
I-- 


^ +1 
+1 


0.9 


# 

0 


0 
' 1 


, 3 * 








+1 


.1.1 . 




1 • 


h ' 


10 
'-5 


1 

10 


10 . 

'.0.5- ; 


+1 
* 


10 ' 

0.5 * 


10 . 
' - 0 


10 
0 


6 


-15 


10 


-1-5 

* > 


. -1 


\ 1.5^ 


1 * 


- -1 


7 ' 


» 10 


-1 


.10 


-1 


. 10 • 


10 ' 


'.10 




1 


-10 


'~.0.1 








0 



step (D is left out because it i's the same as Step (I), 
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The formula 



A +^B*= «4^(a/b) X entier(abs(VB)) » 
may be -understood "better if the student is urged to carry out the steps in 
evftlnating the right-hand side as if the equal sign were a replacenient operator 
pf an assignment step-' ^^^/^ ' - v 

The example, for*^^ = 9, ^ B = 10/ is shovn in the figure below.' It 
might be^ worthwhile^ as an Exercise, to require the student'to develop-ya^ 
similar figure for thig or oiife of the other seven e:^apiples given in the'*student 
text. " ^ f • ' . I 



9 i 10^^ Sign(9/ip) x^entier(abs(9/lO)) 

abs( Rl ) 

.entier( R2 ) 
. r -s^- ^ 

R3 



Sign( Vik ) 
— ^-v — • 



|R5 



9> 10 = 



r6 



Explanation 



Form pi = 9/10 


0.9 


5:orm R2 = abs(Rl) 


0.9 


Form R3 = entier(R2) 


0 V 


Form '=.9/10 


0.9' 


Form R5 = 8ign(RU) , 1 


+1 


«b 1 

Form R6 = R5 X R3 * . | 


0 


9 f 10 is R6 1 





Actual 
"Value 



Answers to Exercises A2^1^ . Set B 



We^^have ask%d the student, as an exercise, ta extract a rule for exponen- 
tiation out of, the twenty-two c6ses giV'en him. 

^let i be a number of type integer - ^ 
let a " " " /' eith|^type ; ^ 
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16 



?e;mie may be stated thus: ^ 
^ ' . Conditions -and significance 

If i.> 0:* a X a X ... x'a (i €imes) 
If i = 0, if a ^ 0: 1 * 



Category 1 



' ^ati 



, lype of 

■ ^ result , ' * 

Same as for ' a 

Same as 'l^r^ a 



< 



if a = 0: undefined 



[f i < 0, if a /'o: l/(a X a X...X a) real 
if .a = 0: undefined 



Category 2. 




If a > 0: exp(r x^ln^a^) 

a ^'o, if r > 0: . 0.0 ' . 

\' • if r^g 0:, undefined 
TEf a < 0: always undefined 



real 
real 



Answers f6" Exercises A2-k Set C . 
1. . To expre^/^A^^^ ' ' 

(a) abs(Atl.5) 



^ (b) (At3)t0.5 ,jj 

(c) sqrt(Af3) 
' (d) abs(sqrt(At3),) - 



abs-* is unnecessary because *A is v 
known to be positive so A"^' must 
also" be positive. 

o.k., but expensive computatioha-ily 
(will require log -anti log procedure). 

This is^the best way. (Requires the 
least amount of compu-^ation. ) ' 

ab^ fiinction is unnecessary. 

O.K., ^but expensive (requires the log-''' 
antilog process)* 



(f) abs(A)|l.5 

(g) sqrt(abs(A]3)) 



\ abs function unnecessary* Also, it 
^ requires ip^-antiJLog process. 

abs functefon unnecessary-: -ocbherwise, 
as good as (c). ^ / . 

Only (f) or (g) would be satisfactory to. express (a|^^ . '(g) is 
** preferred because it avoids the log^antilog process, ,^ Another .alternative 
would be sqrt(abs(A)f 3). ' ' ^ ' 



<i2n 



Answers to Ex^rcifee 



Ip the three ihi'irrect statements below the" first -^d third can be 
.Corrected without arifctguity. Ttie Algol in the second stateme^ may be corrected 

•esulting computations are different. 



s in two ways*^ but th 
.Cl} T := B X 




h Set 



I 



/ 



sl^^^d be 



T := B X (-A); ' 



(2) F := r niay be^6rrected 'as F := c/(-3)_+;4; 



These in 



or as F cZ-S ^ k):' /eneral-.will 
^ ^ ' ^ield differ- 

^ ent- results. 



X (C X -F/d)^ may be corrected - 

^s := A + B X (C X (-F)/d); ) These are coniputation^ 
dr as G := A + B X (C X i-^/^); ) ''^^ equiv^ent. ' ' 



Answers to Exer cis.^s A2-6 



invalid ''ALGOL c6nstant. -jlfmust be vritten^s \ or ^.0 



is^aji invalid ALGOL opefatifr. 'Should be x . EXP 'as distin- 
guishe^tfrom^ exp 'is o.k. Wc^^s/th^ particular ALGOL implementation"* 
.you are bsir " 



;annot distinguish between lower-case and capital 
In thisjevent the .expression *would be considered invalid 
^ EXP. wili be interpreted as the standai-d mathematical ftmction 

' \^ j)ut is riot followed by a parenthesized argumei^ expression. 
(c> -fEnvali^ use of the symbol sin. If sine is meant then th^ should 



• letter 

* since 



(d) 



O.K. 



.(e) -O.K 



2. 



real jFPA|^,y 
FPAET ;= V 



-be an Eti^guinent enclosed in parentheses following - ^in. 



A,:= |exp^(EX^^2x(AifXEXP + A3)); 

-entier(v); * 



. real V; 

integer lOTE^; 
' INTPT :^ enti|er(V); 



5. 



They are not the same. The flow chart box' that's needed Is 



^ .J VR0UKD(TR'UNK(I/K)) 



■■■7 . 



' But since the TRUNK function is an integer rounding /unction, ^ 
Tkup:(l/j)V vili be an integer. ''Therefore t^ie ROUNlJ function, also an 
Integer" rounding function; will have further effect. 

\ ' I^UND(TRimi^j)^='^ ' 

»' The f lov* chart box 



.woiild be a correc 




6, They -are not the same. The flow chart that's needed /s 



■ ROUro(l/if) 



*^2-7 Writing Complete ALGOL ' Programs 

This book makes noK> attempt to teach everythi^ about ALGOL. ' In parti- 
ng - ^ . vT • » 



*cular,^o mention is made in the student's book of block stfucture^ The 
amisslonlshould cause no diff icioity. Students are howe;ver; instruc)bed to group 
all declarations, together at the beginning of a program. Later when this book 
has b'een mastered, the block structure of ALGOL can be pursued jfurther.^ 

Some ALGOL compilers require more declaratiye information than the 
ALGOL ^0 requires. For exari^ple, one ALGOL compiler (Burroughs ALfiOL), 
requires that ail statement labels be -^decla^^ed. For the program ^ Figure 
^A2-10;^ where ^ the fir^t 'StatenTent in the **body"- is 

^ ' 4GAIN4^-' read (price) j 

,.LABEL> AGAIN; 



a declaration like 



would be needed "ftt^the "head" at^^o. program. . . ' 

You should for this reasoft get the help of a local expert who is familiar 
with the "detailed requirements of ^ the particular ALGOL jgcmpiler you will Ije. 
using" for your laboratory work. Such' a person can save you much time in 
getting started.' You might get him (or her) to talce the program in. Figure A2-10 
and run through all phases of testing with you starting with the key punching 
^id continuing through the satisfactory execution of the program. 
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Answers to Exercises A2-7 

9'- 

1. begin real T^Z; ' . 

sa]ART:read (t); ' ^ . * ' . ; 

•'^^v.^^^.-. • ^> • Z := 2,5 + T; ^ . 

^ write (Z); • ' 

go to STAET; f 
end • 

>2. begin integer n/ i, i; 
^ STARTrread (n, i, j); ^ / 

i := n-X (i.- 1) + j; 
write (i); ^ 
go to START; 
end ' ' 

3-- begin real A, B, C, X, Z; ' 
HERErre^ (A, B, C, D, X); 
. , > Z := ((A >^^X + b) X X + C) X X + D;' 

( write (Z); 

S2, is. ^ 



end 



r 



^* ^^6in real n, Q; 
^' " ' " STAART^read (m, n); 

cQ sqrt((m - k.^) X n); 
write (Q); 

C - 62 i2 STAART; • 
end • ■ ' ' 

5^* begin real A^Y^^X^ 

begine:read (A, Y); 
_ , X := 2/(Y +-:^fY); * 

•write (X); 
go to begine; ' 

end 





TA2-7 * s ^ ' 


1 • 

f 


• • 

> > 

6. begin ' reaj, r, £, PHI, rsq, aW; ' 

ioiiread (r, s, PHl); ^ • 

rsq- := r X r; ^ ^ ' 1 ^ 
. * * AREA := 3»1^159/2 X^rsq* ^ V • 
-(s X sqrt(rsq - jW s) -t^r^q X PHl);\ 
write (area); ^ ^ 
go to ici; ' ^ ^ ' \> 


• 

< 

• 

, t , 




7." MjM20 := entier(PRICE/20.0)^ 




p 


8. ALGOL program ^ 

begin ccanment the carnival wheel problem: 
^ integer Kj pj r 
ST!ART:read (s, m); ^ - 

k ^ m + s -((m + s)+4) X k; , 
p, :=>20 X k - 30; ^ ^ ^ 
write (p); < • . , ' ^ 
go to STRRT; 

end 












* ■ . ■ 

* * V 


« 

* 


> 

f 




4 


> 


/' 

if 


• % 
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* * chapter TAJ 

' ' BRANCHING AND SUBSGREPTEa) VARIABLES 



Introduction 



When the "student has mastered the flow chart text for Chapter 3 and this 
companion ALGOi^ he is fully equipped to solve i:om^utational problems of 
, essej:iti^ly any/feomplexity . All the basic programming tools are at his- dis,- 
^^posal^. . l^Iuph of the ma^^eria^l in subsequent' chapters falls" in the category of 
import.ant Refinements/ shorthand techniques, example applications and special 
concepts. That is why it is, very tempting, upon completion of 'this chapter, 
to tarry^and solve a large number ^of problems. We avoid this temptation as 
much as\pQ^sible because the ''refinements to be introduced in each succeeding 
ch&pter make the solatiori of problems increasingly easy and irlterfesting. yie\ 
Expose the student to rela-^ively few applications here. ' Exercises involving 
algorithms emphasiza analysis, mainly, , rather than synthesis. , The shift to 
'synthesis is a gradual proces.s whrch is accelerated in Chapter \. 

The^ two fundamental iVeas of Chapter 3, namely brar^ching and subscripted 
^^^riables, are^ mirrored ratfter ""easily in the Chapter l^equiring relatively 
few i;iew^ideas. , . . - 

Indeed, if we were to limit ihe form of the ALGOL if' tcf simply 

* * * * * • « 

' < if relational oxpressiori then go 'to BOX X ^ 

there woilld be fib new idea at^all. ^ - 

The only neve idea associated with subscripted variables in ALGOL is that 
the -p'2TPgramer has^the responsibility and must declare how mi^ch memoiy space 
.is to. be allocated for each'vector or array that is employed in an ALGOL 
progi:am. * This is done with the array declaration in which 'one gives the 
range 'of each ^ubscript of each vector or array variable. « v ' 



TA3 



Outline of Chapter A3 

A3-I The conditionai if statement is introduced. Examples and exercises 
are^given to show the relationship between flow chart and itfjGOL. For 
example, ' ^ . ^ !■ * , 

if' A B then ^ to B0X5 else, go to B0X3; 
. is explained as the 'equivalent of / ^ . ^ 




'The form of the expression between the words if and then is not ' 
'elaborated except to tell the student that, like the admple co'hdition 
bo^ of the flow chart language, it consists of an arithmetic expression, 
followed by -one of the six relational symbols (operators). 



~4 



followed by another arithmetio, expression.^ 

' ' Several variations in the overall form of the statement are trien 
introduced* which make coding,, i.-e., transliterating from flow chart^tq 
ALGOL, mot^ convenient . 



1. 

2, 





le basic *f6rms are summarized be3^w: ' 

if relational^ expression then any siipple or compound statement; 

ationa^L expression . the^ any simple or compound statement 
else any statement; 



A gerieralization is made which permits the nesting of one conditional 
entirely within another. Graded sets of exercises -are given to permit the • ) 
stu|(fenti ta'g^airi a gradual appreciation of thejse various if forms. The 
^variations at^ merely-^^nvenience. 'Only the basic forms are really essential. 

jme^ oth^^r^to^ic brought up in this section is the use of literals (items 
in quotation iiiarlcs) as output list eleme'nts--to cora^e^o^d" to the same usa^e 
' in t^e flow che^t. Th^is^ - _ 
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2^3 



.vrite/("A = "/a); corresponds to 




A3-2 Since the^ flow chart -text covers the subject of auxiliary variables 
^in^a iray /that transfers to AWOL in a straightforward fashion, this 
sec1?ionycpnsists only of an example plus some exercises. 



» 4 



A3-3 Th^ transliteration of compound condition-boxes from flow charts^to 

kJ^OL conditional -statements Is explained artft illu^strated. The , else -V 
form of the if stajlement is used to advantage for multi-way branching-/ 
F6r example * .> * . ' 




whj.ch then allows use 'of the form; 



) 


15 








■relational expression " then go to BOJ^ else if relational expression 
« then go to BOXj else if ^ relational expression 



etc 



^ or specifically, 

\ < ' " ' . 

\ if X<5 then go to B0X15^ else' if X<8 then go to BOXlf 

t else go to B0X18; 



TA3 - 

A3-^ No new material included here in paralleling the flow chart text 

as all the* ideas carry over to ALGOL in one-to-one fashion. (Precedence 
level of relational Operatqrs with respect to those for the arithmetic 
operators . ) • T * f ' ' 



^A3-5 'J^e ALGOL form for singly- sub scripted variables is introduced. Ai'ray. 
declarations >ind their relation to storage allocation are discussed. 
^ f ^nally> a crude array input -<3utput techn?que is illustrated (to be 
supplanted by a slightly more elegant technique in Chapter k) , " 

A3-6 Everything said about singly- subscripted variables in A3-5 is I'epeated 

for" doubly- sub scripted variable." Input-ojatput of entire arrays is^left 

iintil Chapter k where with the use of iteration statements it is inade * 

ea$y to achieve. - ^ 

* * • 

The student is asked to work, numerous exercises througltout' the . 
, "chapter whicla^Kvolves construction of ALGOL programs from corresponding 
artjrprese 
chart -text . 



flow charter presented as examples or developed as , exercises in the flow 



Answers to Exercis^ A3-I Set A , ' ^ ^ 

"Invalid; Can't- l;iave two relationed symbols as shown. 
2» Invalid. milst be underlined. 

3* O.K. . . ' ^ 

h, 'Invalid. Can't have semicolon before then . ^ ' ' ' . 

5. InvalW. *, Qan'^t have two relational symbols as shown. 

■ ' k " ' . ■ ■ ' ■ ■ '■ 

Cogan^nt ; . In the more complete ALGOL language, not described here to the 
~~~~~~ * 

^student, logical operators like and, not and or are permitted so it would 
be poss^fble, say, in 1 to write f 

if A < B ^ and B < C then 

which is a valid i£ clause having more than one relational symbol. ' 
Relational symbols can be thought of .as operators and are explained in 
this sense in Section 3-^» 
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Z5 



N 



HA3 



/ 



6. if V > 0 then Y := Z X; 

' if; J < 0 then T 3 x T; . 

'8.- iS^ K - 4 = 0 then ^ read(z); 

'9-' if X >'9.7' then wrUte(Y,T); 



10. 



•12. 



SS 



0 



11. 



= c) 



p p + 1 



Ansvers to Exercise^^ A3-1 Set B 

1. if I = J then begin F := G + H; 



P := sqrt(Tf 3); 



end; 



. 1" 



■0 



2. if A + B > c tHen begin Y:=Z+,X; 



end; 



3* \ r i£ I = J then £o to box2; 
k. I = J • then go to box2; 



r 
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' 5.- 



-(ztjy 





1 


'Z ^ A 



30 



6. 



(p 3 < S - k )-^ 



30. 



F ,^ 10 X T + 5 
G i- G - 5 



P ^ P 'X >^ 
S ^ S X /s • 



Answers' to Exerclsgg-A3-1 Set £ * . 

1. * if K = 0 then vrite ("case 1') else write ("case 2"); 

. BOX3o\ 

2. if 'K = 0 then begin T := 1; 

^vrite (s)/ ^ . 

end 

els^ begin T := 2; 
- . * ' write (SS); . . ^ • 

end; 

BOX30: ; ♦ I ' - * 



^ S < T then 'F := F 7 -1 
else write (Q)^ 
BOX3O: . ; V 

r ; 

' if S <: ^ then. ^>S := S + 1 
• else begin K := + 1; 

. r , N := N + i; 

S := 0; 

' " " ' end ; 
' BOX30': 



5. ,if C,+ D T. then go^ '30X30 

else begin F := 10 X T +,5; 
^ " G := G - 5; 

go BOXifO; 

end ; 

r Q ' ' Boxsd: V ; , ■ 22 " ' 



9 • 

* • * 



Comeht ; .Some students may think of negating the condl^tional of Problem 5 • 
and interchanging the "T»' and "F" labels on t^e exits. .This results 
-in an alternate solution: 



if »^ C + B = T ' then begin F := 10. X T + 5; 
. / ' go to BOXi*.0; 

B0X30: 



V 



Further discussion of -fehis idea has been deferred until later in the book. 



if . A < B then begin T 

B 



= A;- 
= B;. 
= T; 



go to BOXi^O; 



B0X30: 



if F + G > H theh begin S 

/ U 

else begin P 
• Q 
B 

end; 



= S +^1; 
= T + 1; 
= S X T; 

= P + 1; 
= Q + 1; ^ 
7 P/Q^ ^ 



. B0X30J ^ ^ , 

8, Semicolon before els€ -mus\ be removed. 

9- Has missing then , or else else has been used when th^n- vas intended. 
A correct version might bfe . ^ 

* if COUOT < l60 ' then go to WXkO; > ' 

10. COUNT + l,sis not a relational ^xpres^on. 

11. IJo matching end for- the b|gin. ' . • 
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Answers to Exercises A3->1 Set D * 

1. vrite ("the impossible"); 

2-'; write ,("AO=t)", A); ' ^ 

3. vrite ("Ad^o", A;'DOBQ=d', fi^ 'bcDCb^o", p); ^* 

Commpnt on space symbol 

Fronf now on we \^ill omit the space symbol, The exact space count is not 
usually o^ importance to us -here. 



Answers to Exercises A3-1 Set E 

^egin real c, d, x; ' 
read (b, c, d, x); 
write (b^' c, d, x); 
' if > b > c then write (d) else write (x); 

^' ^egin real b, c, d, t,.x; 

read (b, c^ d> x); ' ' 
^ write (b, c,»d, x); 

if d<c then t:=cXb>diXx ^ ' ^ 



else * t 



write (t); . 



:=Jl - cj 



r . . ^ 

^egi^ real c, X, t, u, w, y; 
^ read (b, c, d, x^; . ' 

^ write (b, c, d, x); - / 

t := br + c; * 

u := b X c X d; - " 

if 1 1 2 +oc^^?^u 

then begin w :^ t + u; write (w); end 
else begins w u f 2; y := *t f 8; write (w,y);' end; 
end' ' ' . V * • . • _ 
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, (b) Kegin -real b, c, d, x, y, y; ' > ' 

read (b, c, d, x); ^ ^ 
\ vrite (b, c, dy x); 

if (b + c) t 2 + X t 2 > b X c X d ' ^ 

tKen begiji w := b + c + b X c -X d; ^tite (y); -end 
else begin v := b f *2 XvC f 2 X d f 2; 
y :f (b + c)t 8^ 
write {v, y); endj 



end 



begii^ integer j, m, n, svrni; ^ - 

f * BOXi: read (j, m, n); 

^ if III > n then sum := j + m ^ 

else sum : = j + n; • tr . , 

.write (j, m, n, sum); 



go to BOXI; 



end 



5* begin real b, x; » ' 

BOXI: read (b,c)j 
write (b,c); 

if b = 0 ^ 
. ^ .^-^^^ then go to BOX^^ * . . . 

else begin / := -c/b; 

writ^^'The root of bx + c = 0 is,", x); 
gOito BOXL; end; ^ , . 

BOXii: if ^ = 0 ^ • ' ' 

then write ("Every real, number satisfies bx + c = 0-") 
else write ("bx + c = 0^ has no root,"); 
' go to BOXI; 

end 7'"" ^ — -f'j — J- ^ , ^ ^ ^ ^ ^ - 

A simpler appearing program can be. written if we nest the if 's and avoid 
' the label BOXifr ' 

i \ ^ 



J 



V 
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b^gin real c, x; . - . 

BOXl:' read3(b, c); ' * ^ 

vrite (b, c); ^^^^ . y , ■ 

--^.i£..,b*= 0 \ * . /' ' 

' r - , ' then begin if ' c = ' 0 then . 

vrite ( "Every real number satisfies 5+ c 
else write {%x + t 0 has no root"); end 
^else begin x := -c/b; \ ^^^^^ ^ 

vrite' f^e /root of'^x^'^i c '= 0^i"s^';"x); 
end; * ' 

go to B9XI; 
'-^ end ' . ' 

. Ans5jL^rs to Exercises A3-1 Set,,F 

1. begin real SUMALL, T; j . 



~ ^ Sr ^ 



. r integer COUNT; 
COUNT : = 1; 

SUMALL : 0; ' -^^-r-xr^^- 

B0X2 read (T); ^, 

SUMALL : = SUMALL + T; • 
COUNT" : = COUNT + 1; 
if COUNT >100 ' 
then vrite ^(""SUMALL = SUMALL) 
,else go to B0X2; 



end 

^ begin real SUMCUB/,1?; 

' integer COUNT; 

« 5UMC0B :'=^ 
COUNT := Ij 
B0X2: read (T); ' 

SUMCUB :*=^SUMCUfi + T f 3; 
COUNT. := COUNT + 1; 



if COUNT > 100 
* then vrite ( "SU{^CUB = % ^SUMCUB) 
else ^go to pOX2; ^ 



.end 



begin 



B0X2: 



end 



^* begin 



real SlMffiG, T; 
integer COUNT; 
SUMNEG := -0; \ 
COUNT := 1; / ' ^ 
re9^ (T); 

if : T < 0 then SUMNEG SUMKES + T; 
COUNT := COUNT + 1; 
if -CoOnT > 100 ^ ^ 
^ ' vrite ("SUMNEG = SUMNEG) 

else go to B0X2; ' * 



re^l SUMALL, SUMCUB, SUMNEG, T; 
integer COUNT; • ' * 
.SUMALL := 0; 

iSUMCUB V= 0; ' . 

SUMNEG := 0; 
COUIIT 1^= 1; 



B0X2:' read^(T); 
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SUMALL := SUMALL + T; ^ . ' « 

SUliCUB := SUMCUB + T'f 3; * 

If . T < 0 then SUMNEG := SUMNEG + T; 

COUNT := COUNT +1; 

if COUNT > 100 . ' 

* then write ("SUMALL = SUMALL, "SUMCUB = SUMCUB,' 
"SUMNEG = SUMNEG J' ^ 
else go to B0X2; ' > 



end 



5. begin . real CUMSUM, 'T; • ' . 

, • ^ . integer COUNT; 

CUMSUM := 0; 
; COUNT := 1; 
B0X2r read (t); ^ 

'CUMSUM \^ CUMSUIjJ + T; > 
■write ("CUMULATIVE SUM = ", CUMSUM); 
COUNT CQimT + 1; ' 
\ ' ' ^ it COUNT > 100 then DUMMY: 

/ else go to B0X2; ' - 



end 
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Comment : The statemen±--^labelM-ip^Y ts^ enrpty. is a "duininy" statement in 
the sense that it accoinplishes nothing. When COUNT > 100 is true, the 
dummy atateirferrf i^ '€xe<rSted and control reaches the end of the program. 
In ALGOL a statement may be represented j)urely by its* LABEL. 



To avoid the use bf this dummy until the student is introduced to 
it later, we may replace the i£ statement "with this, alternative: ' 

if COUNT < 100 il^en go to B0X2; 



' ' end 



begin ' comment Badminton -or Volleyball; 

real T; , ' 

integer I, State, ScA,ScB; ^ 
. I := 0; 
State := 0;' 

ScA := 0; „ - 

• ScB := 0; • 

B0X2: if I 100 ^then 

bggin read (t); ' ' ' 

if a then - , 

; ' begin if State" 0 then ^ 

'-ScA := ScA + 1 else State := 0; 

* ' ^^se if State = 0 -then 

# ' State := 1 else SqB := ScB(^ +' 1; 

I := I + 1; • \r ^ 

go to B0X2; , * 
.end ♦ ' - 

else if ScA = ScB then write ("TIE GAME", ScA^ "ALL") 
else if ScA > S6B then 

write ("PLAYER A WINS", ScA, "TO", ScBJ 
else write ( "PLAYER B WINS", *ScB, "TO", 'ScA); 




Answers to' Exel-cises A3>2^ Set-A ' . ' 

1. tggni co^^g^ent Fibonacci sequence to produce Random Numbers; 

integer LTEBk, KLT^ COPY; 
-^LTERM ;= 1; 

' '^^^2; |F 1 < 117 then ' 

^/ ^t)egin B0X3: COPY ;= LTERM; 

' ' ^TERM := LTERM+NLT-1000X^ntier((Lm^+IILT)/l^^^ 

NLT := COPY; ' , 

I := I + 1; 

if t < n then go to B0X3 " ^ . . 

' • ^ ' . ..^^ else begin vrite(I, LTERM); ' 

' ^ * ' \ ' 12 l2 ^0^2; 

' end; # 

end 

' > ' > eise HALT: ' . , , 

end 

2. begin comment the TWOSUM problem; 

* • integer I; , , ' 

^ " reaf TNEW, TOLD^ TWOSUM; ' " / 

read (TOLD); ' r ' 

B0X3: read (TNEW); ^ 
<rVOSUM :='TNEW + lOLD; 
' wri%' ("TWOSUM TWOSUM); ■ ' 

TOM ;= TNEW; | *^ 
I :=\l + 1; 

if I,< 100 then go to B0X3; ! 



\ 



,end 



; 
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3» begin' 




begin 



comment the^ altsum problem; 
integer I; ^ ' ' 

real TOLDER, TOLD, TNEW, ALTSUM; 
^ read (TOLDER); 
sfead-(TOLD); 

BOXl^: read (TNEW); 

/ , ALTSUM := TOLDER + TNEV/; 
write ("ALTSUM ALTSUM); 
TOLDER := TOLD; 
TOLD := TKEW; 
I := I + 1; 

if I < lOd . then go to BOXi^-j 



coimnent moving average; 
' real TOLDER, TOLD, TNEW, AVERAGE; 

integer I, k; , . ' ' ' • 

read (k)^ , ^ * ' ' 

read (TOLDER); ^ , / 

read (TOLD); 

I := 5; ^ 
.pQX5: read (TlteW)j: , • ^ ' 
if I >*k then ^ 
] ^ begin if TNEW < TOLD 'then ' . . 

begin AVERAGE := (TOLD + TOLDER)/Sr 
1 . , go to BOXll; 

i , end 

1 else AVERAGE := (TOLDER +*TOLD + TNEW)/3'; 

BOXll: ^ write (AWB^); 

if I > 100 then go to HALT; 
end ; ^ ' , ' 
TOLDER •= TOLD; 
I ^ TOLD := TNp; \ ' 

' I := I + 1; * ^ " ' * 

I go to B0X5; 
^ HALT: 



It 



V 



-end 
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begin ' cdmment' tl*tk regions table; 

^ integer N, A, B, C, SUMA, SUMB 

N := 0: 

e 

' A := 1; . ' 
SUMA := 1; , 
*' B 1;] ( . 

SUMB := 1; ^ 
' • ' C := 1; . 
*B0X3: vi-ite (n. A, b/c); ' 

if N < 15 then ^' ^ 

, ' / begin C := SUMB + 1] 

B := SUMA + 1; 
> A := A + 1; 
N := N + 1; 
SUMB := SUMB + B; . 
SUMA := SUMA + A; ^ 
go to B0X3; 



end; 
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Ansver to Exercise 3-2 ' Set B ' - 

begin comment lealt common multiple of 2 non-ne^gative integers; 
integer A, r; - ' ' 

read (C. D);' , 
- ...... A := C; r - , . . 

' B := D; ^ , ' 

if ^ A < B^ C^/ ' / 

then begin ' * 
B0X5 : if A = d ^ ' 

» > then - go to BCSCJ . 

' Q^sg begin r* := B - entier(B/A) x A; 
B0X11:^B A; 



1^ 



. goHo'' B0X5 ; 



end; 
end 

else^ begiji r :='B; 



.go^to BOXLX 



end; 



BOX?: if B = p then x := 0 ^else x ;= C X d/B; 
' ' vrite (C, X); 



.end 



Ansvers to Exercises A3- 2 S^t C 
1. begin 



* ' 3^eal xl, yl/x2, y2, g.ength;^' 
BOXl:' read (xl, yl, x2, y2); . 
,'Wrfte (xl, yl, x2, y2); 
length := sqrt ((x2-xl)f 2 + (y2-yl) f 2); 
write ("iThe length of PQ' is", length); 
go to BOXl; ' , 



1^ 



end 



2. begin 



begin 



HAS 



real xl, yl, x2, y2, s; 
BOXl: read (xl, yl, x2, y2); 

write (xl, yl, x2, y2);, / ^ - ' ' 

<•!£ x2 = xl then-^*fl?Ste (^'PQ is*-parallel to the y-axis") 
else ^egin s ;= (y2 - yl)/(3e2 - xl); 

wite ("The'slope of PQ^,, is", s); end; 
go to BOXl; \ ' • ^ 



real xl, ^yl, x2, y2, s, deljc, dely; ^ 

read (xl, yl, x2f y2); 

write (xl, yl, x^, y2); 

BOXl: read (delx); / " 

vrite (delx); ^ * , ^ 

if .x2 = xl 0 

then begin - if delx = 0 then - , 

1 - ^ 

I write ("Any real hummer will do.") 

> ^ ^else write ("No such value exists."); end 

else begin s := (y2 - yL)/(x2 - xl); 

, dely := s X delxj , , 

write ("dely =" dely); end; ' ' 
go to BOXl; ^ 



end 



^ begin real ±i; yl, x2, y2, delj^, de^, s^; 

BOXl: .reaft j^yl, x2, y2); ' 
'write (xl, yl, pc2, y2); 
read (dely); v. ^ 

write (dely); • - - ' 

if yl = y2 
then begin if j 

then \«r^e ("Any real numbtr will do.") 
else write' ("No such value eVsists,"); end 
else begin if xl = x2 
then delx- := 0 

else begin s := (y2-yl)/(x2^xl) ;' 

delx := dely/s; end ; ' 
write (."delx delx); end^ 
go to BOXl; * ' > -I 



end 
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5^ begin real ^ xl, yl, x2, y2, s, x, y; 

BOXl: read (xl, yl', x2, y2); 
. write (xX, yl, x2, y2); 
read (x);" v 
write (x); 
if -xl'= x2 



then begin if x = xl 

thgn .write ("Any real number will do,") 
' write ("No ^uch value exists,"); end 

else begin s := (y2-yl)/(x2-xl); 

:= yl + s x/(x-xl); 
write ("y = ", y),- end ; 

go tolsoXl; 



end 



6* begin real xl, yl, x2, y2, x, y, 

BOXl: read (xi, yl, x2, y2); 

write "(xl, yl, x2, y2)^ 
read (y); . 

write (y); ^ . 

t *if yl = V2 , ' 

• then begin if y = yl ' 

then write ("Any real number 'Will^o, ") 
, else write ("No* such value exists,"); end, 
' else begin if xl, = .x2 \, - 

then" X ;= xl / 

else begin s *(y2-yl)/(x2-xl); ^ - 

. . ^ X := xl + (y-yl)/s; end; 

. • write ("x = ",. x); end; ' 
\ /go to BOXl; 

end ^'-'TF^ \ - . , , 
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^egln i^al xi; yl, ±2, y2^ xint, yitit, s; ^ 

BOXl: reaa (xl, yl/x2, y2); I 
vrite (xl, yl, x^ y2); i 

if xl = x2 . - _ - . 

^ then begin write ("x-intercept is""', xl);' ^ \ 

^ write ("PQ does not int^sect y-axis."); 'end 

^ else begin if yl = y2 

then begin^ write { '"PQ does riot intersect x-axis. ")1 

write ("y-intercept_is", yl); end 
else begin s-:= (y2-yl)/(x2'-xl); ' 1 
xint ;= xl - yl/s; ' 
ymt -s x xint;~ 
< write ("x- intercept is", xint); 
^ write ("y-intercept is", yint); end; 
end; - # 

go to BOXl; , ' \ 



end 



.begin 



real xl, yl,. x2; y2, s, xint, yint; 
BOXl: read^(xl„ yl, x2, y2); • 

wriie (xl; yl, x^, y2); - . , . ' 

if xl = x2 ' :'" 

then begin xint : = xl; ^ < ^ 

S£ l£ ^ end 

else begin s := (y2-yl)/(x2-xl); 
xint := xl - yl/s) 
... . yiJ^t := -X 'x xint S;^^^ 
fiOX6: if yl x,y2 <: 0 " 

then write ( "x-intercept is", xint) 

else write ( "PQ does not inte.r^t'the x-axis"); 

if xl X x2 < 0 • ^ • 

then write ("y-intercept is", yint) v 

^ else . ' * 

write ("PQ does not intersect tbe^y-axis"); 
W ^^er^; ^ ^ ^ - / 

' go to BOXl; ' ' « 



end' 
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• Ansverg to Exercises A3-3 Set A 



Legal. 




2 . Legal 




^-3. Illegal, Second if should be part of a 'compound statement like 
begin if C < D . . • — 



k* Legal. 



CHE)— 





* ^ * 



10. Illegal. Need begin and end around the , three assignment statements ^ 
or else we should .eliminate-s '^^else go to BOX^/j 



11 . Legal . ' 



c 



A < B. 





B 


c 







C A 



/ 



Answers to Exercises ^3-3 Set B 
1. Following the. flow chart 

(a) if 2 < X then begin 

if x.< T^then go to B0X20 

4 else go^^B0X30; gnd 

else go to BOX30; 
' * • ^ 

(b) By changing the sense ^f the tests we have a somewhat simpler answer: 

if X < 2 then go -to B0X30j 
if X > 7 then go to B0X30 

else go'to BOX20; - -■--^-.^ . ' 



2. 



if .7 < Q then gb^to B0X20 
else if 7 < R then go to BOX20 
else if 7 < S then go to »B0X20 
else go to B0X30; - 
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(a) if 1.7<x then go B0X2 

• else go to BOX3O; 

• B0X2: if X < 8.U then go to B0X3 

else go to 'BOX3O; 
B0X3: "If -3»9 < y then go to BQXU 

<>else go to BOX3O; 
BOXU: if y < then go to BOX§(^ 

else go to BbX30; 



Jb) By changing the sense of the tests we hay,e a somewhat simpler form. 



if 1.7. > X then go to BOX30 
else if X > 8,U then go to BOX30 
else if -3»9-> y then go to BOX30 
else if y >'5,U then go^'to B0X30 
else go to BpX20; 



- (a) if xl > 0 then go to B0X2 

else go to BOX3O; 
B0X2: if .5Xxl<yl then go to BOX3 

else go to BOX3O; 
' B0X3: 'if yl < 2 X xl then go zo 30X20 
^ else go to BOX3O; 

(b) if xl < 0 then go to BOX5 

else go to BOX3O; 
B0X5^:- i£ 2 X xl < yl then gp to B0X6 

else' go to BOX3O; 
B0X6': if ^ yl <: ,.5 X xl then go to ^0X20 ' 
, > else go to BOX3O; 
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r • 

(c) if xr= 0 then go to B0X30 

' ' * else if xl < 0 then ^ to B0X5 , , ' 
else begin . - ' ' 

• if .5 X xi < yl then go to B0X3 

* ^^s^ £2 i£ b6x30; i 
BOX3: if yl^< 2 X xl then go to BdX2p 

else go tb BOX3O; end ; 
BOX5: if 2 X xl < yl then go to B0X6 

else go to BOX3O; * 
B0X6: - if yl < .5 X xl then go to- B0X2Q 
^ • ' else go to BOX3O; 

Note that the above answer can be shortened b:/ reversing thg^^sense 
of the tests* 



(a> if xl > 0 then go to B0X2 

else go to BOX3O; 
" B0X2: , if yl > 0 then go to BOXS" 
else' go to BOX3O; 
BOX3: if yl < -2/3 X xl + 2 then go 'to B0X20 

elseygo t£ BOX3O; 

^b) an alternative solution: 

i£ X < *0 then go to BOX3O; * / 

i£ yl < 0' then go t£ BOX3O; . 
• 'if yl < -2/3 X xl + 2 then go_to B0X20 
• else go to, BOX3O; 

By reversing the sense of the-tests^ 

if 'kl < 0 then -go to B0X30j ' ^ 

if'' .5 X (3 •1^^159 - xJL) > yl then go to BOX3O; 
if yl > sin(xl) then go to ^0X30 
' ^ ' else go to B0X20; 
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7. if >1 > 0 then 

begin if yl ^ -ii- X xl + 16 then . 
' "^eg^^ M yl ^ ^ ^ 'xl-12^ then 
go to B0X20; ^ 
' ' • ' ' end;' . • 

end 

^ else go to B0X30r 



.1 .J 



Answers. Exercises A3-3 Set C ^ ^ ' ' * 

"The ALGOL statements are usually eaaier to write from the 'form which 
a series F condition boxes., ^ 



1. ,p 




■ 1 




if C > D then go to BOXl* else if E = G then go to B0X1+ 

5 else go to BdX3; 



1 






> y 


2 






( A 






3 , 


y 


Co. 


> 


5 




F 





if X > Y theri go to B0X5 else if A^= G then go to B0X5 
else if C > 5 . then go to B0X5^ else go to £0X1+; 



A e; 
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if A < 5 then go to B0X5 else if B / 6 then go B0X5 \^ , / 
- else if" > Q then go to B0X5 else go to BOXh; " * 

Commej yf; In answering" Exercises 4 and 5 draw a flow chart corresponding to the 
given ALQOL statement. Then, - if warranted, reverse the sense of one or 
more of the tests to make it easier to use the ' else if* form^ 





form (a) 



C .Q<R 





form (b) 
Reverse sense of tests 



I' 



Following fonn (b) we have: . 

if P > then go to BOXIO else if Q < R then go to B0X8 

else go toHBOXT; 
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form v(a) 



F 



CHTD 





form (b) ' 



Following f9rm (b) we have: 
» 

if P / Q then ^ to BOXIO else if Q ^ R then go to BOXIO 
" ^^^g if R = S then ^ to B0X8 else go to BOXJ; 
< (Next statement is assumed to be labeled BOXIO. ) 

Comment; In answering Exercises 6 and 7 of this set the process can be 

analogous to that used^ in answering^Exercises k end 5. However, an 4 
^ ^ ' alternative coding is even 'simplei- and does not require re-flow charting 
/ - ' Vs shown below. * ^ 

' • t ■ « " 



6v 



A = B 





1 ^ 














form (a) 



form (b) 



Following fo3fn(b/ we have: : J - « • 

- if A = B then begin if C ^ D then- go to BOX? 

, ^ ^ else go to B0X6; end - 

else go ;^'b0X6; 

Alternatively, following form(a), we have in two separate statements: 
if A ?^ B then J|to B0X6; ^ ' • 

if C = D then go to B0X6 . else go .'to BOX?; 
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Answers to Exercises AS-S ^ "5^%, 

' ^^g^^ • real ''^^,X;.'^yl^ 
BOXl: read '{xi, yi)i 
' ' ' write (.xl, yl); 



if xl = 0 then 

begin i£ yl = 0-, 

then write ("P is the origin. ") ^ . ^ 
g^se write ^lies on the y-axis"); ^ 

else if xl < 0 then 

begin If . yl = 0 • then'go*to B0X6 ' 

else if yl < 0 then write ("3"o) 
else write .("2"); end 
else I 

' " ^^'s^^ i£ yl = 0 

then BQX6r write ("P lies on the x-a:jis") 
else if yl < 0 

then write ("4") ' • ^ 

else write ("l"); end; 
go to -BOXl; ^ 



end 



2* begin, integer \ S, m, p, k; ' 1 . 

BOXl: read (S, m); • 

/•k := m + S - entiertdn + ^)/^) x h; 
if k = 0 then , p j= ^20 
.else if k = 1 then p := 
" ' else if k = 2 then p . := 0 ' 
else , p ;= 50^' 

go to BOXl; ; ' ^^ 

end 

Answers to Exercises A3=g% ».£(et A - 



':2. 



Xt5] 
•Z[N] 



3. J CHAB[I] 
Jt. Bti.+ 2] 
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Answers to Exercises A3«$ Set B 

1*. • re^ array A [ 1 : 50 ] ; - 

' integer i; , • , ' * . 

' . i := 1; ^ 

BOXA^ read (A[i])j 

i := i +.15 . ' 
' 'i£ / ^ 5 ^ then go to BOXA; < . 

Note k is a ^constant not a variable for the purpose of this probletm 
because' it is given a value before we start. . Therefore k is not 
included in the-* integer declaration list. 

2. ' . real array B[1:125];" 
' intege^ j; 

>J(B: read (B[j]); . / 
i := j +'2; . 
; if j < n then go .to BOXB; 

3. real array A[l:50], B[i:50]i 
^ -integer i; 

' ^ i := 10; 

' BOXA: read (A[i]); ' ^ 

i := i + 1; 

if i < n then go to BOXA; 

i :=-10; ^ 
'bOXB: read"(B[i].); ^ 
^ ^ "i := i + 2; . . 

/ ' • i£ ^ .< n ;^hen, gd to BO^fBj 



5 , 
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Answers ttf Exercises A3>$ Set C 

1. begin . - comment carnival .wheel with subscripts; 
integer array P[l;,if]j 
4nteger ra,^ k; ^\ ' » 

?0X1: read (s, m); ^ I 
k'<-m + s - entier((m + s)/k) x h; ' 
' • ' write (p[k + l]); 
end ^ • ' 

# 

2. begin comment Figure 3-25; 

in^ger i, any, k; 

. real array b[l:10o/; 

real fc; / 
i 1; 

any. := 0; 

read (c); ' 

. k := 1; - ^ ' 

■ , AGAIN: read (b[k]); 

k := k + 1; 

if k < 100 then go to AGAIN; 
* B0X4r b[i] > c 

% then begin any := 1'; write (i, b[l]); end ; 
i <- i + 1; 

i£ i < 100 then go to BOX^; 



J 



if any = 0 then write ("NONE*^; 



end 
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Answer to Exercise A3-$ Set C 



3- begin * comment finding the actual degree of a pol;ynomial; 

integer n, i;' 
. ' real array A[0:^0]) 
BOXl: ' read (n); 

i := 0; • " ^ ''.'Jp** .J 

B0X2: read (A[i?); 
i := i + 1; 

if i < n then go to*B0X2; 
B0X3: if A[n] = 0 ' ' 
then begin n := n - 1; 
, i£ > 0 then go to B0X3 

else begin write (n); 
^ • go to FIN; 

• ' » * end ; 

r eM . \ 

els^ begin write (n); 

-^i := 0; ' ' 

* B0X6: * ^ w'rite {A[i]); L 

/ ^ ' ^ i i + 1; 

; • ' ' if ' i < n then go to B0X6; ^ 

FIN% go to BOXl; 
end \ . 



Ansver td| Exercise A3«^ Set D ' t 

^eg^n comment orchestraville; 

reaa. array A [1:125]; 
^ % integer n, k, copy, mid, madj 

real meed; 
BOKX:.. read (n); 

"k :=!-■■ - , 
B0X2: read A[k]; 

' ^ k + 

« i£ k < n then go to B0X2j ^ 
^ B0X3: k := 1; - ^ 

^S^^ ' B0X4: 'if A[k] >A[k + i] 



then begin copy := A[k]j 

A[k] := A[k + l]j 
A[k + l] := copy; 
go to B0X3; 



V , end ; 



' ' k.:= k + 1; 
'\ ' if k < n then .go to BOXi^■; 

mid := entier(n/2); ^ ' 

\ i£ mid X 2 = -n then mad mid + 1 

_else mad := mid; 
meed .5 x (A [mid] +A[mad]); 
^^ . vrite (^'MEDIAN AGE IS", meed, "YpUNGEST IS 

\ - ^ "OLDEST IS", A[n]); ' 

' go to BOXl; ^ ' . 



end 
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* Answer a * to Exercises A3^6 ' ^ 

1. ' real.array Ml:22, 1:2?]; • 

, ^ real ^ COLSUM; . 
integer K; 
COLSUM := 0; 

B0X3: if I = 12 therr go to BO^; 
"COLSUl^ := COi;syM + .P[I, K]; 
' ' BGX5 : ' i£ , I < 22 then go to B0X6 - 
••^ else wite COLSUM; 

^ . . Si £o Bt)X8; ' 

BOX^: ^ I := I + 1; ' 
• \ ".gotoBOXSr , 

. 2: ie^^^^ay P[l;22, 1:2?]; 

* * ' , integer J, 

B0X2: .P[L,J] := P[L,Jl + P[M,J]; 
( " " i£ ^ '^^ then begi.n 

• : • ; ^ J := J + 1- 

•"'i''' go to B0X2;-.end; - 



real array . P[l:22^ 1;€T]; 
i-nteger L^ Kj M; 

» 4/ 

J J= 1 ^ ' 

B0X2"r \if J = K then go to fiOXU7 — . '"^ 

P[L,J] := P[L,JO + 2 X PlM.jf; 
BOXii: if;. J < 27 then begin 
• . J := J + 1; 



real array P[l;22,l;27]; 
^ , ► • integer I, J, L, M; ^ * 

^ real COPY; \ ' 

I := l; 

B0X2:. COPY := P[lo^]; ^ ^ ^ ' 

P[L,J] := P[m;j]; ' \ ; . ^ 
P[M,J] := COPY; ' ' . ' ^ 

- ^ if J < 27 then • 
2 begin J := J + 1; 

• ^ to B0X2; 
end; , 



real arra^ P [1:22, 1:2?]; 
•integer J; 

real MAX; , ' 

J := 1; * . ^ ' 

MAX := 0; - " ' , ^ 

B0X3: 'if abs(P[L,j]) >abs(MAX) then MAX : = P[L.J1; 
if J < 27 then begin J:=J.+^i; ^ 

. go to B0X3; - 

, ^ . ^ ^ 'SS^' .-^ ' * .' . 

B0X8: P[L,J] := P[L,J]/MAX; ^ , 

if J < 27 then ^egin . J := J + 1; 

' ' ' g^^to BOXS; 



end; 
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Chapter. TAk 
' ^ * ' LOOPING 

Summary of Chapte r Ak 

K : ~— ^ 

The raai-n sectior;s of this chapter are: 




A4-1 
Ak-k 



The "for clause^ and the "for statement" 

t .1- 

Illustrative examples " ' , 

Table-look-up ,^ 
Nested loops ' . . » 



Thiach^ter follows alosely Chapter h of tiie flow chart text. 

Ilie "for clause "^ / . " ■ . ^ ' , ' 

'•The "for clause" in ALGOL is introduce^and, shown to be -the equivalent of- 
the iteration box and the , for ^ s^^tement .equivalgnt\o the ♦^hole 'loop, ^ that is, 
^ gpverxied.by the iteration bdic-and including th'e iter^ti^- box. ' The portion 'of 
the for s1;ateinent' which follows .the for clause" is shown to be any i^LGOL state- 
ment that the student has already learned about thus fa^, i.e. ," assignment, 
input, output, or if statement. MoReover, it may also be a compound' statement. 
The latter possibility makes it possible for any, loop^, ^wh'fch begins with an- 



^- \ Iteration, box, to be-described with a 'single for statement. 

. V _ In the exercises tq this section the stpdent is shown how to uge a for 
, Statement to code the ihput or output bf vector's, where the flow chart' 
notation is something like: ' ' , ' ' . 

• V • • - ^ * 

Ak-2 Illustrative £b<faniples ' . " ' " 

- \ The example^^ the iteratJ^Sn' box used for simple loops in"Section 4-2 
are mirrored Un this section using for statements.^ 

'-^ ' , » , 
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Ta>le -look- up ^ <^ • ^ ' 

The main puarpose of this sectipiiHs to provide the student additional 
. opportiinity to see ^ov cotoplicated algo^thms, which involve loops and 
iteration boxes, are converted pr ^'transliterated" from flow chart to ALGOL. 

Ah-k Nested loops ^ • * , 

Details of nesting for statements ^are described to mirror the nestiiig 
of iteration loops in the flow charts. We show the student hov the statement 
that follows the for clause can be another'' for statement or^ contain one (if 
it is ffi^ompound). ,^ ^ * 

We also show the student how to ex^^ress i^he input or ontput of an entire 
matrix by nested for statements (Figure-Ai^--ll)\ 

Additional coding practice is gained in the exercises which call for 

'* • *^ ^ , • 

transaction of flow cha;rts ,to ALGOL. , ? " < 



Answers to Exercises ^k^l 

^^g^^ ' integer N, I, ID; ^ 
rebl A, C, D; • 
BOXO: read(N); ^ ^l}- 

• ^ J= 1 step 1 until N do . 

* tesin read (ID, A, B, C); 

_^D J=^sqrt(At2 + Bt2 + C\2); , 
, . '^ite (ID, A, B, C, D) ; en^i 
write ("ENDoOkjTABLE"); 
go tOv,B0X0;' ^ 
^ end w 

2. begin integer LTE^, NLT,. COPY, I, S; 
LTERM 2: 
NLy^:= 1;7 ^ 
S := 1; 

for I :=/l step 1 until 60 do 
begi^ 

rite (I, ^.TEEM, S); 
S := S+ NLT; 
• COPY := LTERM; 
tTERM := LTERM + NLT; 




liLT := C0I;:Y; 
""end;' ' 



end 



3- begin integer array P [l;U]; . 
integer N, SUM, L,. s/ m, k;V ' 
£21 ^ •= 1 step 1 until k d^^read (P[I] ); 
read (N); • 
^SUM := 0; 



for L := 1 step 1 until N do . ' ^ 

begin 

* resEd (s, m); ' 
k := m + s - «ntier((m+s)/l4-)xl4-;^ / 
. ^ SUM := SUM + P[k + 1]; . . . ■ 

end ; v 

write ("^fter", N, "spins, your net winnings areV, SUM, , "points"); 



eno 



ERIC • ■ , , 5s) . !. 
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U. begin integer i, N; . * 

real PAYROLL, WAGES; 
. ' real array T['1:100], bTIiIOO]; 

read (N); . >, . 

PAYROLL := 0; 

for i := 1 step 1 xmtil N do read (T[i]); 
\ £2E ^ l ^tep 1 until N do read.»(R[i3)i 
for i := 1 step 1 until N do 

begin WAGES := R[i] X-T[i]; * 
. ' • PAYROLL := PAYROLL + WAGES; 

I ^ tif' write (i, WAGES); 

end ; ... • ^ 

write (PAYROlS); 

end 



Answers to Exercised' Ak-k Set A ' , - : 

1. The first statement! should read 

MAX := abs(A[li5r^ ' ^ , k * 

The clause is inrproperly, written. It should read 
for J := 2 step I until N do 

Otherwise^ O.K. 

2. There are two errors: • . ^ 

^The first statement lacks a seini colon.. 

The It statement has a semicolon, before then-it must be removed!' 
The presence of this unwanted semicolon makes an ill-formed 
if statement^ 




There are twc^ errors: 

^ The for 'Clause has an unwaa^ed semicolon after do. 
(There are two statements^ vhich should be repeated under control of 
the^ counter k.- We need to make a compound statement: 
begin FACT := K X PACT; 
vrite '(K, PACT); 

end 



There iVone error: 



The write^atement must be '^stuffed" inside the compound, i.e., 
ahead of tl^e last end 

The first two- statemen,t.B are written as a con^oSd statement. ^ While, 
this is quite unnecessary, it is^not illegal|and cannot be^o^on- 
sidered an error as it does not charige the^sense.of this codeY 



■ ^ t 

Answers to Exercises A4-2 Set B ' ..."^^ 



!♦ for I :=j 1 step 1 until N do 



begin COPY^ptll]; 

P[I] := Q[I]; ' 

Q[I] := COPY; . 

* \ 
end; ^ ^ 



/ 




' 2. for I := 2 step 2 until N d6 
begin COPY -X Pi I]; 

PMl := Q[i]; 
Q[I] := COPY; 
end; * I 

3. for I := ^ step 3 until N do 
=P[I1;. • 
= Q[I]; ' • ' 
= COPY;' 



begin COPY 
P[I] 
Q[I] 

end; 



h. ND2 := N/2; • ' , ^ . 

for I : = 1 step 1 until N02 do 
Q[I] := F[I]; 

alternativ'ely, :■ 
for I := 1 step 1 ' until entier(N/2) do 
:= P[I]; 

i 

*5. N02 := N/2 ; ' • ' 

rt>r I := 1 step 1 until N02 do 
- ' . QU] f= P[N02-+. I]; , ' 

alternatively, 
^ for I := 1 step 1 until n/2 Ho ' 
Q[I] :'= P[N/'2 + I]^;' 

■ 6. N02B : ='entier (N/2); . 

if N02B = N/2' then K = N02B 

else K := N02B + 1; 

'i- n il JL ' 

for I := 1 step 1 until K02B do 
Q[I] P[K +.1]; 

7. for I := fl step -I until N - K + 1 do 

^' . P(r + 2] := P[I]; 
< • • ■* 

/ ■ 

/• * 
' '8(a). SUMCUB := 0; ^ ' ^ \ ' 

' - jfor J := 1 step'i lontil 100 do 

— 7'^ ' — 

^ * " SUMCUB := SUMCUB + P[l]t3; 
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8C»/ SUMNEG := 0; ' 



for I, ;=,! step 1 unUl 100 do ^ J * * 

if P[I] < 0 then SUMNEG := SUMNEG + P[I]j 



8(c). SUMCUB 
SUMNEG 
SUMBIG 



= 0 
= 0 
= 0 



^ - v.. 



for I := 1 step 1 iintil 100 do 

begin ^ • v - * 

SUJ^yB'-j^^ SUMCUB + P[l]t3; 

if P[I] < 0 then SUMNEG := SUMNEG + P[I]; 
" if'abs(P[l]) > 50 then SUMBltJ := SUMBIG' + abs'P[l]; 

end ; • . 

9. COLSUM := 0; . - • ^ - 

for I := 1 step 1 until 22 d£ ^/ 

■ 'iflA 12 then COLSUM := COLSUM + P[I, K]; ^ 
write (COLSUM); 

10. for J := 2, step 1 until 2? do ' 

L, ^] := PFL, jr+ P[m/j1'; - 

.,.'•.* . ^ 

11- for J := 1 step 1 until ?7 do' ' 

if J 1^ K then«f[L, J] := i>[L, J]' '+ 2 X.'p[M; JU 

*) ' * * 

12. for'I := 1 step i'until ^ ^ \ * ' 

. . - i£^abs(P[I]) > 50 then go to:B0X3; sy.^. . _ 

ANY := 0; * / ** 

^ B0X5; 

^B0X3: W := p[l]; ' . ^ . 

ANY :='l; - ' ' 

^ B0X5: 'v.^ ' j 

Comment on Problem 12— suggested code: 

The ALGOL code proposed in ^he student text for this exercise is vrong 
because Box 3 of the.flov chart, which is outside the loop, has been "gathe^'ed" 
iz?to the loop in the proposed ALGOL code.. In ^the flow'chart once you enter ' • 
SoX',3 you tove left the fortstatement. 



13. 



for I := N step -1 until 1 do 

if abs(P[I]) > 50 then go tS BOXk; 



£0 to B0X5 ; 
30X4: W := P[I]; 




W := 50; 
for I := 1 step 1 until K do 
* if abs(P[N - I + 1] ) > 50 then go to BOXk; 
go to 30X5 ; 
box;; V := P[I] j 
B0X5: 



Note: all 
one for 
statement 



B0X8: 



T := 0; 
,for I : = 



1 ste-D 1 until H do 



if abs(P[I] ) < abs(M) then begin 
[if'abs (P[I]) > abs(T) then T := P[I]; end; 



il T = 0 then ^ begin vri 



leT' 



"NONE"); goto HALT; end; 



* ^ It's assumed that the empty statement labele'd HALT is to be found at the 
end of the" program. A similar example was used in the student text at the 
beginning of Section A3 -2. 



15. 



Note; all 
one, f of . 
statement 



for I := 1 gtep 1 until N do 
if P[l] < U then go to B0X3; 

write ("NONE^'); • ' ~ 

go to HALT;^ % 
B0X3: ' T := P[l]; . \ \ ' 

BOXki for K ;^ I + 1 step 1 until N do^ 

if T <P[k] then begin 

if P[K] < M then T.;= P[k]; end; 

B0X8; 



Again it's assumed that an empty statement labeled ^LT is to be found at 
the end of the program,, ^ / ' , 



ERIC 



16. ' . SMALL := Q[L, ]|] ; * 1 

for J := 2 ste^ ,l unti 1 N do,' 
^ if^SkALL > Q[Lj J] then SMALL := Q[L^ J]; 

■IT* ' £2E I := M step -1 unti 1 1 do 

. if Q[I, R] > T then go to B0X3; 
BpX4: K)W :=: 0; 

go to B0X5; " 
B0X3: ->K)W :=.!; ' 

. ,BIG := Q[I, R]; ' • 



Answers to Exercises A^-^ Set C 

'"' begin £eal array X[ 1:50]; 

' ' real ,A, MJM; ^ 

integer I, J, N; ' / 

read (N)r ' ^ 

for I := 1 step 1 until N do read (X[I] ); 
read (A); 

\. . ' K - MJM := X[l}^ - A; - - - 
for J : = 2 step 1 until' N do 
4 ^MJM := NUM X (X[J] I A); 

^ vrite (MJM); 

end 



• X 



J lb . begin , real 'array X[l:50]: 
real A, HUM; 
integer K, I, J,l-N; 
read (N); 

for I :=:'l step . 1 until N do read (X[I] );' 
read (K, A); 
' := 1; 
.for J ; = 1 step 1 until N do 
/ ' ^ ' if J / K . then 

NUM := MJM X iX[j] - A); 
vrite (MJM); ' ^ 

js»d 



2. begio ^ real array X[1;$0]; 
I real DEN; 

integer K, I, J/ N; 
read (N); 

for I := 1 step 1 until N do read (X[I] ); . 
read (K); 
DEN := 1; 

for J := 1 step, 1 Until N do 
if J / K then 

-^^^^M := DEN X (X[J] - X[K]); 
■write (DEN); - 

end 

^Qg^^ iiiteger array P[l:^; ' * 
. ^ inte^r'*CV, SUM, L>'s, m, k; 

for i : = 'l step 1 ui^itil k do read (P[I] ); 
read (CV); ^ 
' \ ' SUM := 0; . \. 

for L := 1 st^p 1 until 1000 do 
begin ^ . , 

read^(s, m); 

k := m + s - 'entier((m+s)/i*-)xl*.; 
SUM := SUM + Pl!k + 1];' ' 
if abs(SUM) > CV then begin 
, vrite (L, CV, SUM);* , ^ 
S2, i2. H^T^ end; 

vrite ("EREOR"); ' ' 

HALT:; 

end 



/ 
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Answer to Exercise M-3 

begin comment Look up in an unsorted Tablb; 
real array X[ 1:200], Y[l:200);' 
real A; 

integer K, N, LO, *HI, I; • , 

read (N); 

for I := 1 step 1 -until N do read (X[K], Y[K) ); 
LO :^ 0; 

HI := N + 1; " ' V 

read (X[LO], X[HI]); 
re'ad (A); 
^ if X[LO] < A then begin 

if A < X[HI] thep go to BOX?; end; 
^■write (A, "is not in the range of the Tahle^'); 
go to HALT; ^ ' . _ 

BOX?: for I := 1 step 1 until N do ^ ^ 

begin \f X[l] < A then * 

♦ 

begin if X[l] > X[LO] then LO := I; end 
' "else if X[r] < X[HI] then HI := I; 
end; 

write TxIlo], Y[L0], A, x[hi], Y[Hlj}; 
HALT:; 
end " ^ _ 



V 



5 



I 



Answers to Exercises Ak-^k Set A 

1. . , BIG := 6^ 

for I := 1 



1 until M do 



for J := 1 step 1 until N do 
if abs(BIG) < abs(p[l, j]) then 
BIG := P[I, J]- 
vrite (BIG); 



2. 



3. 



one big for 
statement 



^ LARGE := P[l, ll; ' 
ROVr := 1; 
COL r= 1; 

. until 





one great big 
f6r statement 



for J := 2. step 2 until K do 

if P[I, J] = 0 then ZTALY := ZTALY + 1 
els^if L EAST > P[I, J] then LE/VST := P[I, J]] 
'vrite (LEAST, ZTALY); 



:= 2 step 1 until M do . 
" £21 J •= 1 ;5tep 1 until N do 

P[I, J] := P{I, J] + T X P[l||^]; 



i 



ERIC 



«•: 
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> -6, SUMl := 0; ^ " ^ ^ • ' ^ ^ ' 

" • • ^ ^ for I = 2 step 1 until M do . ' ^ ^ 

* 1 * 'for J := ^ step 1 until I*- i do * * 

^ ' ' ^ SUMl :=^SUM1 + P[rNj Jl; ^ * * \ ^ 

^.'7: ' - ' SUM2 := 0;'' ^ , ^ ^ ' . ' 

V for I ;=: 1 ^tep 1 until M ^ 1 do^ ^ .» 

^ ^ . for J := 1 step 1 until M do I \ , /x <^ 

^ y I ' SUM2 := SUM2 V p['l^ J]; / 

'8, ANY 0; . * ' ^ ^ 

for J. := M step -1 until >3 do 

begin . ' . ' ' , > , 

' ^ - 'last :*= P[l, J]; ... 

for T 2 step 1 until J - 1 do ' 



♦ 



if abs(P[l,'j]) > 2 X. then go to B03C7 ' ' ' \y 
else LAST := P[I^ J] ; ' v. 
BOX?: wrfte (JP[I, J}, I, J)^ • . , \ 

" ANY := i; ^ / . - ' . • "I; 

end ; * ^ ^ - ' ^ ^ 

if ANY = 0 then vrlte (^NONE")i . 



|9 
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Answers to Exercises ^Ak^k .Set B 

1(a). begin comment Numbeir of non-ccjngrueht triangles whose . 

sides are of* integer length less than 100; 
, Integer I, -J; S; ' ' 
' , ^ • S := 0; ' ' 

for I r= 1 step 1 until 100 do 

i'or J := 1 + entier (l/2) step 1 until I do 
^ S := S + 2 X J - I; 
vrite(S); ^ ' . . 

•(b)* ' begin comment ^ Accynnulated perimeters for the S "Eriangles 
^ / I' counted by preceding program; 

' ^ Integer I, , P; . ^ ' 

. ^ ^/^^ 0;- ^ 

,^.*Tor J := 1 step 1 .until 100 da 

^ for J 1 +,entier(l/2) step 1 until I do ^ 

for K := I*- J + 1" step 1 until' J do 

^ / V= P +.1 + J t 

write(P); , ' , 



end ' 
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Answers to Exercise's. Ak^k Set C ' 

^ ' " ;begin comment prime Factor! zati^fi Algprithm] 

' ' ' integer N, ^; 



one for. 
st^atemen 

tricky way to write 
a one statement loop 
without use of a for 
statements 



read (N); 




/ for K := 2 step 


1 untii sqrt(N) do 




entier(N/K^^ ^ 


* ; 7 begin 


write (K);- / 


\\ • ' ' 


N := n/K; 3 




go to BGX3; ^ ^ 


. end; 





4'' 



end 



2. ' 



^^gi^^ conroent shuttle interchange .sorting* 

real array A[l:500]; , ^ 

real COPy; ' ^ 

s integer I, J, K, N; 
. read (N); 

for I := 1^ step 1 until N do read (A[l]); 



one for 
statement 




end 



for I := 1 step 1 until N write ); 



ERIC 



r 



begin comment sleeper Pig. U-.35; 
real array .A[ 1:500] 5 
real.' COPY; 

integer I, J, K, N; . ° V 

I read (N); . " ^ 

, for K := 1 step 1 until N do read {A[1i] ); 
for I :j= 1 step 1 until N - 1 do 
■ . ' £21 ^ •= ^ st%p 1 - until N -'I do 
. if A[J] > A[J + 1] then 
beg.in COPY ::*A[J]; 

A[J]. := A[J + 1]; 
' ' ■ A[J + 1] := COPY; 

, • end; ' ^ ^ . 

for K := 1 step 1 until N do vrite-{A[K] ) ; 

' end 

begin comment longest decreasing subsequence; 

i 

< real array A[ 1:100] ; ^ 

■ ' — — — ^ ^ ^ 

integer array B[ 1:100 ] ; 
integer N, I; M^NC, J, K; 
read (N); 

^ for I := 1 step L until N do read (A[I] ); 
MpiNC := 1>. 

for J :=' 1 step 1 until N do 
" begin B[J] := 1; 

for K J= 1 step 1 until J - 1 do * 



' if A[K] >A[J] then begin 
^ i|; B[ J] <-B[K] + 1 then 
B[J] := B[K]^ +1; end; 
if MAXINC < B[ J] then ^ ik/^' 
MAXENC := B[J]; ^ 



end; 

vrite (M/Od-NC); 



end 
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Answers to Exerci&es ^ 
**) 

^* real procedure cutiert(a); real a; 
begin 

real g,h; 



V g:=l; . 
p: Th> = (2 X g ^ 



loop: ThS = (2 X g ^ a/g |2)/3; 

if abs(h-g) > .0001 then 
begin g:=hf 

go to loop ; ^ 

end; 
cubert := h; 

' end 



2/ real procedure f(x); 
real x; 

f :=(3 X X - 2) X X + 1; 



3*. 3?eal procedure abs6l(x);' 



4 



real x> - / ^ ' 

if *x < 0 then absol := -x .else labsol 



TA 



Answers to Exercl$;es Set A , • 

1. (a) real procedure f(x,y); real x,y; 

K * ' f:^((x U'+.y) + 2^^+ 5)/(abs(x) + 2h 

(b) ^z:=f(r,s) + 6 x T; r ' . - ^ 

2. integer procedure right(a-,b,c); real a,^b,c; 

begin right 0; 

if ••c < 0 fhen go to error; 
if b < 0 then ^o to error; ^ v 
if a < 0 then go to error; 
if cxc = ax. a^bxb th^ right:=l else 
if a X a = b x'b + c X c then right:=l else 
^ ^ ifbxb=axa + cxc then 'right :=1; 
error: • 
end 

« 

3. (a) real procedure n]ax(x,y,z); real x, y, z; 

begin real Irgst; 
;Lrgst:=ix; 

ii Irgst < y then Irgst :=y; 
"if Irgst < z then Irgst :=z; 
^ , max:=lrgst} , * 

end . _ 



(]>) begin 



real Irgst; 

real procedure max(x,y,z); real x,' y, z; 

/ CDimnent put procedure body here; 
rea'd(A,B,C); 
Irgst := max(A,B,C); 
write(lrgst); 



end , 



4. ' Let quad = 0. indicate the ,eri^r exit. 

'integer procedure *quad(x,y); real x.y; 
l:)egin real z) 

if X = 0 then z:=0; 
if . X > 0 then 

^egin if y = 0 then* z:=0; 
" * , * • if y > 0^ then z:=:l; 

if y < 0 then z:=k} 
end/ ^ 
if X < 0 then 

^ ' begin if y = ^ then z:=0, 
if y > 0 then z:=2 
4 ^ if y < 0 then z:=3 

end; 

, quad:=z; 



end 



, 5*. * integer procedure insect(xl,yl,rl,x2,y2,r2); 
-^.real xl, yl, rl, x2, y2, r2; 

begin real dist; ' ' . * . 

if rl < 0 then insect ::=-l else 
if* r2 < 0 then ins€ctj=-l else * . 

•dist:=sqrt((x2-xl) i 2 + (y2-yl) I 2); 
if dist = 0 then 

begin if rl = r2 then insect : =100 • 
' , . . ' . insect :=0 end else 

if dist = rl 4- r2 then insect := l.else ^ 
if dist = abs(rl - r2) then insect := 1 els 
if' dist < abs(rl - r2) then insect i= 0 els 
, , ^ - #^ - if dist > rl + r2 then insect := 0 erge " 
insect := 2; , - • . 

end; . ^ 

end 



real , procedure 'aiiyrQot(a,n); real a; integer n; 
"begin 

-real h,,g;' Integer i; } 

g : = 1/ ' /* . 

for i := 1 step 1 until lo do ' 
begin 
> h :=:'a/gt^n.l)j 

if abs(g-h) < '.0001 thfen go to fin; 
g := ((n-1) X^g + hVn; 
end; ^ 
fin: anyroot' := g; 

end f 



(a) . xeal procedure irate (n,R,Ii); real R,L; integer 
begin real rest-/ pay; 

rest .01 X R; * - 

pay :=-L;^ 

* ' i := 1 step 1 until n do 

^ pay := pay x Cl + rest); 

, n _ irate := pay; 

- ' ehd 



Alternate -solution: 

real procedure irate (n,R,L); 


real R,L; integer n? 

irate := L X (l + R/lOO)tn; 
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Answers zo Exercises A^-S Set B 

1. integer procedure GCD(A,B); 
integer A,B; 
l^egin - integer r; 

if A > B then * 
begin r := B; 
B := A; 
A := r; 

end; 

again: if A 0 then 
. begin r 
B 
A 



B - A X entier(B/A);^ 
A; 



go to again; 

end; 
GCD := B; 

end 



2. iflteger procedure GCF(A,B.,C); 
^ integer A^B,C; 

begin integer x; 

X := GCD(A,B); 
GCF-:= GCD(x,C); 

end 



Comment J The function procedure GCD vouia have to be declared in the 
head of the main program along with the declaration of 

» 

procedure GCF. 
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^ 3. ' "(a) begin comment nufflBer of non-sim|liar' triangles; 

'"'^ integer S^I^J^K; 

int'^ger procedure GCD(A,B); 

comment put the rest of the declaration of 
procedure 'GCD here; 

♦ ' integer procedure GCF(AjB,C); 

comment put the rest of the declaration of _ 
procedure OCF her^; 

, S := 0; :♦ ^ ^ ' ' 

I , for Jl-ijsj-l.. step I until 100 do * ^ 

for J := 1 + entier(l/2) step 1 until I do 7/* 
^ for K := I - J + 1 step 1 until J do 
* ^ here: if GCF(I,J,K) = 1 then S := S + 1; 

write (S); ^ : 

end ' ' ^ ' 

^ \ 

(b) Replace the statement labeled "here" with 

here: "if GCF(l, J,K) = 1 then S := S + I + J + K; . 

Comment : In case students run this problem and also problem ^4 on the 
computer, you will probably want them^^o cut down the size of the ' 
problem. Otherwise, excessive computer time may be required. For 
example, triangles whose lengths are less than 50 might bg enough,. 
Likewise, in problem you could consider all numbers less than 10^ 
instead of 10^. 



ERIC . , . 



"begin ,\ 

integer I, J,iC,L,TEST; ' ^^ • ' ^ 

integer array CUBE[ 1:1000]; ' 
comment place declaration of in-^'eger^^rocedure GCD here; 
comment place declaratioja-of integer procedure GCF here; 
. for I := 1 step 1 until 999 ,do 
begin aJBE[l] := I X I X I; 

for J :=: 1 step 1 untiT.I do 

begin TEST'':^ CUBE[l] + aJBE[j]; 

if TEST > 10^9 then go to over; 
'__„^K^5 I - 1; ; 
L := J + 1; 

back: if L > K then £0 to again; 

if CUBE[L] + CUBECK] = TEST 
^ ^ then begin if GCF(J;K,L) = 1 

then write(l,J,TES:f,K,L); J 



L := L+ 1; ^' ^ / 



K := ^ 1; 

go to back; 
.y 

end 

else if OJBEtL] + OJBEfK] < TEST 
then begin L := L + 1; 

go to back; 

^ end 
else if OJBECL] + OJBJfK] > TEST 
' * then begin K := K - 1;' 

go to back;"' " 



end; 



again: . ; , end ; 
over: end ; - • 
end / 



t 
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Answers to Exercises A^^^ Se't A 

1. procedure absol(a,absx) j real x, absxj 

begin - if x < 0 then absx:=-x else absx:=xj end 

2. (a)"' procedure cxadd(al,bl,a2,b2,a,b) ; real al.-bl, a2, b2, a, b'; 

"begin a:=al + a2j 
b:=bl +gb2j ' 

end 

(b) procedure cxsub(al/Dl,a2,b2,a,b); real al, bl, a2, b2, a, b; 

begin a:=al - a2j ^ 
^ b:=bl - b2; 

end 

(c) procedure cxmult(al,bl,a2,b2,a,b) ; real al, bl, a2, b2, a, bj 

begin a:=al X a2 - bl x b2; ' 
' • ^ b:=al X b2 + a2 X bl; 

end ^ 

(d) procedure cxdiv(al,bl,a2,b2,a,b); real al, bl, a2, b2, a, b; 

begin real denom; 

denom := a2 x a2> b2 X b2j 

a:=: (al x a2 + bl x b2)/denom;. 
b:= (a2 X bl - al X b2)/denom; 

end 

^^g^^ al^ bl; a2, b2, oper; 

comment place declaration of procedures cxadd, cxsub, cxmult 
and cx^v here; 

* 

' read(al,bl,a2,b2,oper) j 
write (al,bl,a2,b2,oper); 

if oper = 1 »then cxadd(al,bl,a2,b2,a,b) else 
if oper = 2 , then cxsub(al,bl,a2,b2,a,b) else 
if oper = 3 then cxinult(al,bl,a2,b2,a,li) else 
if oper = k then cxdiv(al,bl,a2,b2,a,b) j ♦ 
write(a,"+",b/'i"); 



^nd 



procedure sort2(k,A,B, error); '* 

integer error; array A,B; « 
• befein real copy; integer i; ? ^ * 

if .k < 0 then . . * 

begip error:=l;o' ' ' • • 

go to return; 

end ; 

error :=0; 

again: for i:=l step 1 until k - 1 do • 
begin if A[i] >'A[i+l] then 

begin copy:=A[i]; - ^ 
A[i].:=A[i+l]; 
A[i+l]:=copy; 
copy:=B[i]; 
- • B[i]:=B[l.+l]; ' ' 

B[i+1] :=copy^ 
* go to again; 

'end; 

end ; 
return : 

• 

(a) procedure count (n, countfac) ; 

integer n,. countf^c; . - 

comnient A negative value of ."^ountfac indicates N < 0 
begin 

real bound; integer k; ' - 

i£ n < 0 ^hen v 
begin countfac := -1; 
go io return; ^ 

end; 

" ^ countfac := 0; ' 

" -^fc.Jbound := sqrt(n); " ' 

- ' k'^:= 1 step 1 until bound -1 do 

if n = k X entier(n/k) then ^ 
countfac' :^ countfac ^+ 2;,^- 
if n = k X k then countfac := countfac + 1; 
return: 



- enpl 
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i M begin integer n, fac; f . . I * ' 



/ comment ^ place procedure count here: 
^ — * 

for b:=l step 1 until 1000 do * 



begin 'count (n /fac); ^ * 

if fac = 2 theri vrite (n); 

end; 

5» M procedure aliquot ( number, n, parts); *^ 
i^iteger nuinber, n; Integer .array Rarts; ^' 
begin real bound; integer k; it - 
^ . if' number < 0 then 

begin n:=-l; go to fetura; end; 
' * • "n?=l; ' - * 

parts[l]:=l> -^0^ 
if number < 3 then gQ.to return; 
6 })ound:=sqrt( number); . 
for k:=2 step 1 until '.bounp. do 
^ . begin if number ='k X (number + k) then 

begin^ n:=n+l&; 
. * . ' .V parts[n-l] :=k; 

\ , ' . parts [ n] :=number/k; t ' 

end; ^ " 

end; 

.if parts[n] = parts[n-^l] then n := n-1; 

return: ' " • - 

end ' 
•» ^ 
begin integer i, n, i, sum; integer array A[l;5Q]; 

comment place procedure aii^uot here; 

for i:il step 1 until 500 do ^ 

\ begin aliquot ( i,ri, a); 

if n < 0 then ^ A A 

begin vrite (^littposslble?.):, r 

^ go to set; , 

end; 

, sum;=0; 

for ^ j:=:l jstQp 1 untiT n do. 

sum:=sum + A[ j]; 

> if i = sum then ^jTitg (i) 

end ;- 

set: '• , ^ * 

end 



The first five perfect numbers are ^,"'26, h96, 8128, 33550336. 



5> 



(c) begin integer i,j,sum; Integer array A[0:500], B[0:500]; ' " 
' comment place procedure aliquot here; 
for i :=1 step 1 until 5Q0. do •* • ' 
begin aliquot(i,n^A); 

' if n < 0 then" * ^ - ' 

" ^Qg^" write ("impossible"); go to set; end; 
sum:=0; , ' 

for step 1 until n do • 

sum:=sum + A[ j]; 
B[i]:=sum; 
if sum < i tfien 



^egin if B[sum] V i* then write (sum,i); end; 



end; 



set: 



I / * ' . ^ . ^ 

end, • ( ' . ' 

* , • • ^ ^ - «- 

The only pair of friendly numbers less than 500 are 22o/ and*^81f. 



Answers t^ 'Exgt'cis'es A^-h Set 

' I - 

^' '. real proceLdure Least(n,A); 

integer n; real array A; 



comment 'this finds the shiest component of A; 

begin real S; integer i; . 

.} ' ''>S := A[l]; ; ' 

I ' for i Bt&£i: uytll li- do 

' ' il^Ali] > S then S := A[i]; 

Least := S; \ * 

end; • , ^ I 

integer procedure Subleast<n,A); 
Integgr n; real array A; 
, commfeni this finds the subscript ,!of the smallest component of A; 
I ^ begin real S; ihte^er ^i.k; / • 

' J/ ^ S All];..; • 

; k :=:.1| V 
. • • • for i := 1 ste^ 1 until n dg ^ • * \- 

.ifAti] > .S' then - * " 

' / ^ , feegin S := Afi); 

( ' , ^ : * K i; . 

end ; ^ 

Subleast k; * - 

end;*«l!^ , . \ 



t 
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procedure Mark£^(n,A,s,k ); 
integer n,k; 
real array A; 
real s; 

begin s :='^ A[l}^^ 
}{ := 1; 



for i := 1 step .! unti^' n do 
if A[i} > s then 

begin s : = A[ i ] ; 
k := i;- 

end; 



0^- 



end 



Answers to Exercises A^-^ Set C, 

1; procedure degree (n, A); 

integer n; integer array A; 
begin commenf the degree, of A is, tl;e final n; 
over: if A[n] = 0 then 
begin ,n := n-1 

if n > 0 then go to o'ver; 
end; °' 
end ' ' . ' ' 



'2# procedure siinplify(n,A); 

integer n; integer array A; 



comment coefficients of A vill be divided by their 

greatest common factor • Procedure GCD is used 



begiri^ integer D,i;- 

D := abs(A[0]); ^ 
for i := 1 step 1 until n do 

begin D := GCD(D,abs(A[i] ));' 
if D = 1 g(^ a return; 

end 

for i. ;='0' step JL- uniii n do 
r ' . A[i] := 'A[il/D; 

iurn:" 

encL. / ^ * 



c 



. cogiment *'procedure RDCMOD reduoes'^an nth degree 
polynomial A(xJ modulo an mth degree 
polynomial B(k) where* ra < n < 100 GCD used 
procedure RDCMOD(n,m/A,B)^ ' - ' ' 

integer n,m; ' integer array A,B;_i 
begin integer C,D,xff; i ^ * 
i£ ^ l2 return; 
again: i£ ^ < So to return;. ^ 
*' X := GCD(A[n], B[m]); ' 

= ^[m] -fx;. * . . ^ 

= A[n]'--f x; 
for i := 1 ^tep 1 until jn 
• ^ ' i£ L£ ^ then 

A[n-i] ^ C X A[n-i] - D X B[iiti 
else A[n-i] C x A[n-i]; 
n := n - 1; 
degree (n, A); 

simplify(^^); i 
S2 1° again; " # 

return: 

end * < 

4 ... 
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^* "^ggin cQmment progrson for finding the greatest common 'divisor of two 
polynomials A of degree n -and B of d*egree m; 

integer ' n i , 6 

, integer array A,B[b:100]; 

"comment put declarations of procedures : degree, simplify, 
^ RDCMOD and GCD here; 

•'read(n,m); 

•for i := 0 step 1 until n do read(A(i]); 



** * for i := 0 step 1 until m do read(B[i] ); 

degree (-n, A); 
simplify (n, A); 
degree (m,B); 

simplify (m,B); ' ' < 
sw := 0 ^ 
B0X7: RDCMOD(n,m^A,B); 
T := ri; 

BOXLl: if T > 0 th^ 'begirt sw := 1 - sw; 



^nd 



'^'if sw = 1 ^ to*'B0X8 glse go to BOX?; 



J 



else if T = 0 then begia toite("l"); 

go^toBOXlS; 'V^,^^ 

else if T < 0 then begin if sw = 0. then 
^ ' for i 1 step g,' until m do vrite(B[i])j 

else ' for i ;= 1 step 1 until n do write ( A[ i) );- 

£o to BOXLS; 
end;. ' " ~ . 



B0X8: „ RDCMOD(m,n 
-T- := m] 



B,A); 
go to BOXLl; 



/ 



BOXLS; 
end 



• Therb is a suppl^entary exercise set in the Teacher *s Commentary. at the 
end Of Section ^-k. Here aye the ALGOL programs for. the flow charts given in 
the solution set iJD tKe Exercises'* ^ * ' . 

real procedure ihtodecCn^A^b); 

integer n,b; airay ^; , ' ^ / 

begin integer ' i; rgal. s; 
, ' • • • ; s := 0; .'I , . ' * 

for i := 1 step m xmtil n do j , ' ' 



. ' , 1 * -s^:= S.4 Ati] Xbt(n-i); \ ! ^ / 

''^ \ 1intodec^;= s; . ' / ' 

'•^ ^ end , , . \ ^ ^ \ ' ' ; ' ^ 
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(a) real prbcedure mefy(k.A); 

integer k; $,rray A; 
. • , V begin array comp[l:l61; integer J; 
comp[l]:="0."; 
comp[ 2) 

ciomp[3]:="2"; , t 
comp[*ii}:^"3"; 
corap[5]:="ii''; 
comp[6]':="5"; 
comp[7]:="6"; 
;comp[8]-"7"; 
/ comp[9j:="8"; ^ . 

"comp[l0]:=l^9-; , ^ 
comp[ ll]:="u":; 
comp[l2]: = "v"; 
. comp[l3]:="w";- 
comp[U]:="x"; 
comp[l5]:=^'y"; . 
confp[l6]'-'"z"; 

for j 1 step 1 until 16 do ^ 

begin if A[k] comp[o] then )3egin 
idefy:=:j-l; 
go to set end ; 
end ; / 

wite ("INCORRECT CHARACTER")- 
idefy:=07*^ - 

set : 

end j * / 



(^} real procedure hexd(n>A) ^ " 

^ integer •n;^arr^ A;^ , 

begin , integer - i, digit; real de&j 

comment ^place real procedure idefy(k,A): here; 

dec:=0; 

\ , for i 4^ 1 step 1 untfl n di 
if ^ ' ^egin digit :=idefy(i,l\)j ^ 

^ ^ dec:=dec + digi^ x l6 4(n-i); 
end j ^ 
hexd := dec; * <^ 
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procedure outdec(d,b,R,m); 

integer, df b, m; array R; 
begin integer q; in:=l; 
again: q:=d + b; 

R[m]-:=d - q x b; 



i£ ^ ^ ^^^^ £2'i2 ^return; 

in:=m+l; 

d:=qj 

go to again; 



i:eturn: 
<end 



/ 

begin/ integer bljb2jnjijmjbasel0; array A,R[1:100]; 
/ coimnent place real procedure 'intodfec here; 

comment place procedure' outdec here; 
. read(bl,b2,n); 

for i := 1 ste^ l until n do read^(Ati]}; 
baselO':= intodec("n,A,bl); 
outdec(baselO,b2,R,m); 

'fQT r := m' step -1 until 1 do write (R(i]); 
end • ^ • ^ « 

(a) procedure Rnum(n,A,num) ; integer n, num; array A 
begin &rray roman[l:7]> value[lt7]j integer 
' roman[l]^:="^";' 

rcMiian[2] :="V"; ' " 1 

roman[3] :="X"; 
I ' , roman[U]:="L"; 
i roman[5]:-"C"F 

rpman[6]:="D">j^ . 
* roman[7]:="M"> 

valu[l] :=1; 
' valu[2j:=5; 
. valu[3]:-10; • * 

valu'[4] :=50; 
^ valu[5] :=lbo'; * 
vaau[6]:=500; ' 
valu[7] :=10jOO; 

u • nu5T=^r 
/ , last;=:8; _ , 
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6. (a) (continued) 



end 



for k := 1 step 1 until n do 

begin for i^ := 1 step ^ 1 until 7 do 

if A[k] = roman[i] then* go to B0X7; 

Tn:ite( "incorrect character"); ' ' 
') ' ' 

go to return; 

B0X7: if last < i then num := num- 2 Xvalu['last]+valu[i] 
else num := -num + valu[il; 
last'':= i; ' 

end 
return: 



(^) begin integer n,Aj i/sum,numl,t|um2; array' All ; 20] , B[l:20]; 
. comment J)lace declaration of procedure Rnum here; 
again: 3rea^(n,m); 

for i := 1 step 1 until n do begin read(A[i] ); 

, w2rlte(A[i]); -/ 
end; 

" for i := 1 step 1 until . m do begin read(B[i]).; 

write (B[i]); 



^ Rnum(n, A^numl); 
Rnum(m,B^'num2); 
,-sum := numl*-H num2; 
write ("sum =",sum); 



eni 



-go to again; 



end 



ERIC- 
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Supplementary remarks on assignment of values to non - local variables * \ 

The following should help you to visualize how the information on i^on- 
local variables is transmitted, to an ALGOL procedure. Suppose an actual paral 
meter is a single variable T and suppose it'matches ^formal parameter X in 
the procedure declaration. At .the time ftie s^rocedure is executed, there are 
two ways information about .jcan be transferred to the procedure. These cor- 
respond to dropping in the window box labeled "T" and to dropping in a slip »of 
paper on which the value of T is written. 

^If we drop in the window box labeled *'T", this is referred to as "call by° 
name". If drop in the slip of paper, it is "call by , value". In the pro- 
cedure head,' in aTddition to the type specification of X, it is possible to 
include another specification: 

value X;' , 

\diich insures Jhat only the. value of T, the actual parameter, will be trans- 
ferred to the procedure. The address of T ^d.ll not be known. There is no 
danger, 'therefoire, that the procedure will alter the value of the non-local 
variable T. 

* vt 

In the function procedure we have until now guarded against this unwitting 
reassignment by forbidding assignment to any non-local variable inside a func- 
tion procedure. Now we have a second way to accpmplish this safeguard. In the 
proper procedure the output variables must be in the call-by-name category 
since otherwise;^ the compiler "^^puld not know where to assign the values to be ' 
output. ALGOL IS so defined that all simple variables ^jiot specifically desig- 
nated to be called by value are called by name. ^We have been calling by name 
(by default, so to speak) in sfl.1 our procediires . / 

Answers to Exercises [A^-^ \ ' t 

l\ procedure ro6ts2(al,bl,Q;L^a2,b2,c2,xl,x2,L) j 
rdal al,bl,cl,a2,b2,c2,xl',x2j label L; ^ 

• * ' begin real denom; , ^ ' 

denom := al x b2 - a^ x bl;' 

• * if denom = 0 then go to 'L ^ , • 




cl X li2 - c2 X ])l)/denbinV, 



x2 :=^(al X'|b2 - a2 x'cl)/denom; 
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comment a procedu^^^^S'ind the real roots of 6 quadira^tic equation 
ytilizing alternate exits; 

procedifre ROOTSA(a,b, c,xl,x2,L,M,N); 

r^al a,b,c,xl,x2; ^ 

label L,M,N; 

begin real disc; - ' . • 

if a =,0 then 



4 



begin if b =<0 then go to L 
else begin xl := -c/b; 
go to M; 

end; 

end 

else if b = 0 then 

begin if q/a > 0 then go to N 
else , if c =-0" then go to M 

else begin xl \- sqrt(-c/a); 
' - ' . x2 -xl; , 

go to return;, 
en^ ; ^ 

end ' 

else begin .f 
disc :=l^><b-UxaXc; 
if disc > 0 then . 

begin ^xl :- (-b + sqrt(disc) )/(2 X a);^ 
x2 := (-b - sqrt(disc))/(2 X a); 
^ . Vq retu'rn; 

4 /'-. . 

,else ifi disa/= 0 then 



go to M; 



\ 



' return : 



end 



else ^ to N; | 



end; 



(b) comment a program to call procedure ROOTSA; 
begin roal a,b,c,xl,x2; ' ' ' 

comment the procedure declaration for ROOTSA goes here; 
read(df,b, c); • 

write(a,"b,c); * 
R00TSA(a,b,c,xl,x2,B0X5,B0X6,B0X8);;^ ' 
writeC'TWO SOLUTIONS xl=:",xl,."x2=%x2); 
go to fin; 

B0X5: write ("NO INTERESTING SOLUTION"); 

go to fin; 
B0X6: wri,te("ONE SOUJTION x=",x1); 

^o to fin; - 
B0X8: write ("SOLUTIONS ARE COMPUEX"); 
fin: ^ . 

comment a proper procedure for real roots of quadratic equations 
procedure roots (a,b, c,p,xl,x2) ; 
real a^ b, xl, x2; 

integer n; * * ' 

begin real disc; 

if a 0 - then 
. • begin if ^ 0 then. 
• " 'begin disc :=bxb-4xaxc;' 

if disc > 0 then 

^^S^^ 2; ^ 
' ' xl = {-b + sqpt(disc))/(2xap; 

" I2 =: (-b + sqrt(disc))^(2xa|r; end 
• 'else begin if disc = 0 then , begin 

n:=l; xl:=-b/a end - 
^/ . else n:=3J 

' * end ; go to endroots; 
end ; ^ ' 

H ^/^ < 0 ' then • ^ 

begin n:=2i' xl:=sq:5t(-c/a) j x^ = -xl; 'end 
glse n:-y, go to endroots; . ^ ^ 
' end ^ . ' ' ' ^ , 

else if b 0 then 

> begin n:=l; xl:=^ -ci/b; ertd ^ ■ 
else n:=0: . • ' < , ' 
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begin . » * - 

comment pieces of a calling program for^oots; ^ 
real a,b,c,rl,3r2; ^ 

integer k; ' ^ ' ^ ' ' 

comment the procedure declaration^of roots must be^^serted here 
read(a,b,c); . ' - ^ ^ 

V3?ite(a,b',c); / ' 

roots(a,b,c,k,rl,r2); 7 
if k'^= 0 then write("no interesting $olutron">, 
else if k = 1 then write("one solution r =",rl) 
else if k = 2 then wrjLte("two solutions rl 4'%rl,"r2=",r2) . 



else if k = 3 then write (^'solution^ are complex"); 
end 



- \v 

* 5 - - 
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(Using la6^s as procedure parameters) 

procedure f (x,y,T,q); 

real x,y,T; label q; 

if X = 2 then go to q 

else T := ( (xt3+y)t2+5)/(x-2); 



Calling program: ^ v 

real r,s,V,m; label boxl2; 

comment labels really do not have to be declared in a main program; 
comment place declaration of procedure f here; 
readj(r,s,V); * 
f(.r,s,V,toxl2); 

^i'z:=V+6xm; - ^ 

go to all; 

boxl2: write ( "V jCannot be computed"); , 

all: ' ' . 

^ -end • , , 



Answers to Exercises A5-6 

1. procedure 'cohtch(n,s, c, count); 



integer n, count, c; array s; 

begin integer "m, loc; ' ' * 

comment the procedure declaration for 
' inserted here; 

m:=l; 

4 1 

count :=0; , i . 
n: chekch(n,s,m,c,loc); 

if loc =0 then go to return else 
^ count :=c6urit+l; 

m:=loc+l; 
go -to again; ^ , > . 

return: ~^ ^ 

end ' / < I 



chekch must be 
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2. procedure parenchek(n,S^erro^ 



Integer n, Irror; array, Sj 
"begin Integer count, ij / 
count :5 0; J 
for i ;='! step 1 until n do 
begin if S[i] = then 

begin count := count-i; 



if CQunt < 0 then begin error 1; go to return; 
end 



end 



-else^ if S[-ij :="("then count ;= count + 1; end; 



if coudt = 0 then error := 0 else^ error* := 2;. 
return :. 



end 



procedure contst(n,S,h,C, count); 

integer n,k, count; array S,*C; * 

begin ijite^gr ^locj ,^ 

comment place procedure declaration chekst here; 



f 



5unt := 0; ^ ^ 
m := 1; 

a^ain : . chekst ( n, S,m, k, C, loc ) ; 

= 0 then go to return; 
. count := count -+ 1; 



i 



if 



m := loc 



go to again; 



return : 



end 



/ 
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(a) procedure aver(in,n,A,v); • . . • 

ij^teger in,n; real v; array A; * 
* * ^^fi^^ integer nuin, B^,i; 
num := n 1*1 +. 1; 

sum 0\ / ' . • * * 

if num*= 0 tHen begin v := -50; go to return; ^nd 
else "for 1 := m- step 1 until n do 
sum := sum + A[i]: 
•V. V : = sum/num; 1 ^ 
return: ^ 

" . r 1/ ' • 



(b) bqgin integer m,n,k; array A[l:n]; real average; 

comment place declaration oft procedure aver Sore • 

place declaration '^f procedure r^adstring heTe 
readBtring(k,A); 
^gain: read(m,n); ^ 

aver (m,n, A, average); y. , * • 

write (m, rt, average )'; 
' * S2 i2 again; ' 
end * ' ' *^ 



, . Chapter TA? s ' 

SOME MATHEMATICAL APPLICATIONS 



' The material here will parallel closely that in Ihe student«s Chapter 'a?. 
Since no new ALGOL concepts have been. int reduced, ^discussions are limited' to ♦ 
specific points regarding the exercises. ^ • ^ ^ ^ * 



Answers to Exercises A7-1 
1* begin 



BOXll: 
.BOXe: 

B0X12-; 
30X3: 

B0X13:^ 
BOXBa: 



^BOXlSa: 
BOXl^: 



BOXli;.: 
B0X5: 

90x15: 
BOX^: 



1) X X 



1; 



Teil proceaure fl(x); real x;fl := (x t 2 
real procedTare f2(x); real x;f2 (x + inx); ' ■ 

real procedure f3(x)i real x;i3 := 5 - x.- 5 X sin(x)j 
real pro<^edure fh{x); real x;fk := (oc t 2 - 3) X x - 2; 
real procedure pjx); teal x5f5 := 0^ -2) X x - I3) X x 
comment place the zero procedure here; 
real result; , 
^zerp (fl, ?0X11, 0, 2, ,l,*result)i , ^. ' 

write' (resialt); go to B0X2; " . • . 

write .("method is inapplicable for fl(x)^'); , ' 

zero (f2/B0X12, .1, 1, M5, result); 
write (result); g^>tf^jc3; 

write ("method is inappflicable fox f2(x)"}; d> ' • 

zero (f3, 30X13, 0, 2, U,, result); . ^ 

wri\e (result); go to B0X3a; . ' 

write ("method is inappiicable for f3(x)"); go to BOXli-;^^^ 

zero (f3, "fe0Xl3a^ .0, 2, .OOOl'/result); 
•write (result)^go to BOX^l; * !' . 

'write (^'oops"); 

jzero' (fit, BOXllt, 0, 2, . 1/ result) ;. . 
write (result); g£ to B0X5;* ' 
write ("methojl is inapplica^ for flf(x)"); 
_2erb (f5,. B0X15^ 0, h, -i; result); • 
write (result); g^ to B0X6; 
write" ( "method ^fs inapplicable for f5(xj"); 



10; 



r 



end 



Calculated results ^ 

(1) , 1-3^38, e =^0.1 , ^ ' 

(2) 0.60625, € = 0.15 • 

i3l 0.87500, € = O.k; 0.9^^565, .€ 
.(.ky., < Not -available \hrs edition) 
(5) Method is inapplicable. 
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begiii ^ 

^^^^ procedure fl(x);^ real x; fl 



= (xt 2 - 2) X X - 5; / 
= ((xt 2 + 3) X'x - 2) X X ' 
= ((3 X X - 2) X xf 2 + 7) X X « 
= -'(x t2 -4) X X -.1; - 

(x - .3) XX - li.x (sin(x))t 2; 



real procedure f2(x); real x^ f2. 
.real procedure f3(x); real x; f 3 , 
real procedure f^(x'); real x; fk 
real procedure f5(x)^ real ,xj f5 
real procedure fll(x); ' real x) fij. := x + in(x); 
real procedure fJL2(x); real x; fl2 :=;5 - x - 5 X sin(x);' 
real yO, yl, y2, y3, yk, y5, y6,*77, ^ 
for Z;= ^10.0 step 0.$' until 10.0 do ' ■ 

begin ' . 

yo •.= Zi . ■ . _ . ' , ■ . 

yl :='fl(Z)j ' . 

y2 := f2(Z)j ^ ,• ^ 

y3 := f3(Z)j 

yk := fl|(Z)j 

y5 := f5(Z)j 
• y6:=fll(Z)j. 

y? := fl2('z); ' 

wite (yO,yl,y2,y3,yi^,y5,y6,y7); 

$nd; 



end 



The exercise x =,tknx was not programmed since it is not corrtinuous 
in the desired inte^rval. 



^a) 15.03 (or 15 to the nearest foot) 
(b) 15.65 ft. / 



^. begin 



1% 



real procedure f{x); real x; f := sinW - 2/3 x (xj; 
real procedure 'g(x); real g sin(x)/cb^x) - 10, x x; 



yent procedu;re zero goes her^; 



reaJA pi,^ A, B; * • ^ ^ 

pi -i 3.14159; - . ' 

zero Vf, BO^k, 0, pi/2, .6001, A); 
zero BOXky 0, pi72, .0001, B);" 
* write ^'root of f(x;j is". A, 'Voot of ,g(x) is", B); 
got6"BW; . ^' * . 

HOXt:, vrite ('\aethod is inapplicable for f(x) or- g(x')"); 
BOXp: ' / 
^ end 



X X sqrt(l Ixi 2) ,23j 
= sqrtd'- xt3.) - x't 2; 
= sqrtd^.xf 2) 3; 
= sqrt(l. - X t 2);-. xf k;- 
= sqrt(l -*xf 2) - xf 5; 



• . begj.n 

real procedure 'f(x) ; real x; f 
real procedure g2(x) ; . real xf g2 
real procedure \g3(x); ^al'xf; g3 
real procedure ^ A^^x); real x; gk 
real ^procedure g5(x)j * real ^ g5 

* ' c oiponent procedure^zei^o go^s here; 

real;Pl> F2, RG2, RG3, -RG4, ^RGg;, « 
zero (f; B0X8, .0, .'Cooi,* Fl); / 
zero (f, B0X8, 1, .0001, F2); . . 
zero (^2; B0X&, .707; 1, .0001, RG2).;.' 
zero (g3; B0X8, RG2, 1, ,0001.^ RG3); ' ' 
zercJ.(gl;, B0X8, RG3,* 1, .0001, R^if); 

• zero (g5, jB6x§, Roi, 1, .0001, RG5); . ' \ 
vrite (Fl, F2, RG^, RG3, 'RG4; RG5);' g£ to B0X9; ^ * 

'BOXB: write ("oops");. * ' " ' ^ ' . V. 

B0X9: 

end ' * 
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B0X3: 



S3: 
B0X9: 



end 
i 



J 



TAT-a^ The^ Area Under a Axrve : An Example :^ y = J/x , between < x = 1 and x = 
Answers- to '>Exercises A7-2 ' " r 

. ^ ... ' ^5 ^ 

1. (a) If epsi ^ is sufficiently small, two successive approxiinfetions may 

differ by mgre than epsi for every ' n, n < lOo. 

(b) If the calculation failed to terminate before n' = 100, the storage 
set aside for T will be exceeded. ' » ^ 

(c) Before £he statement ns=n -k 1; add'.if n = IdO then ' go' to 33^ 
Before statement B0X9 add 33:., write. ("E^pa^ tolerance exceeded^'); ' 

2, We could 'eliminate th® calculation of 2^ fo? each n. We do nofn^fed 
all the T^,»^ at once. Only the current and the one just before the 

^ current on^ are needed- ' If we call these OLAREA and *NUAREA we do not ^ 
need to use any subscripted variables,' 

Revised* 'l^rogram 
' \ 

* ^ begin 

integer ra, n, k; , 
real h, epsi, s, OLAREA, AREA; 
read (epsi); 

OLAREA := 0.5 X.(f(l) + f^)j; 
m t= 1; h := 1; n ^' 
m := 2 X m; ^ 
h;:= h/2; . 

s r= 0; ' ' ^ 

for k := 1 step 2 until m - 1 ^ 
s s + f(i + k X h); 
AREA):= 0.5^ X OLAREA + h X s; 
if abs(AREA-^ OLAREA) < epsi th^n go to Bl^X9; 
it 100 then go to S3; ( ' 

n n + 1; 
OLAREA := AREA; 
go to B0X3; 

write .("Error tolerance exceeded") ^ 
write .(epsi> "AREA AREA); 



ER^C 



96 . 

100 



For epsi = 0.01, ARKA = 0.691^12. ^ ^ , 
For epsi = 0.001,' 'AREA' = O.69339. 

Let llinit be the maximum number of iteratioAs to be performed. 
begin , " ' ' 

integer m, n, limit; 
rfeal h, s, OLAREA, ABEA;'' 
. retdi (limit); , . ^ 



B0X3: 



OLAREA.:= 0,5 X (f^X \^(2)); 
;h := 1.P;JA := n := 1; 

•2 >cmx ; 



ste^ 2 iintil ra - 1 do t 



B0X9: 



h/2; 
s 0;' 
for k := 1 
. s := js +^f(l + k X h); 
ABEA := 0.5 X OLAEEA + h x S; 
if limit then go to BCJX?; 
h := n + 1;. . . , ' 

OLAREA ':= AREAj ' ^ 
go to B0X3J 

vrite ("n", "AREA'', "absdif''); 
write (n, AREA, abs(OIiAREA - AREA)); 



end^ 



'Answer: ^ for n = a.5, AREA = .69311i.. 

AiL we need to do is to put the label^^pe^t" i5h the read stkt 
add qne statement before - "end". added statanent would be 



- ^o to repeat; 



AT 



begin . ^ - 

o 

real t, a; 

integer k; ' . 

, z.\ read (n); .v*^^ 
s:=0.75j ^ * 
t:=l/n; ^ ^ ' 

Sor k:=l step^ I until'. n - 1 do 
s;=s -t- 1.0/(1.0 +. k*x t); 
' ai=s/n; . • , . . 

Vite {"AREA=:'%^a); 
. go to z;' 

end 



For n = 5; 4REA = 0. 69563. 
For n - 25, AREA = -0.69325 • - 
For> n = 75/, ARM = O.69316. *\ ' 
For n = 125, AREA = 0.693i5* *^ ' 
For n = 200, MilA^-=' 0.69315*' 



I 
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TA7-3 Area Under Curve ; The General Case 
Ansveri^ to Exfercises A7-3 



1.' (a) rfejal procediire area2(a;b;n,f') ; real a, 
. integer n; real proced\^e' f ; ^ ' 
^ begin . . • — ' 



real K, S> 

h := (b a)/nr ^ • 

S := 0.5 X (f(V)-+*f(a)); >. ^ 
for K := 1 step 1 yntil n - 1 do 
/ /S := S + f(a + K X h); 
*are^ := S\ h; 



' 'end * area2 
testing program; 



]5egin 



/ 



real j)rocedure Z(x); real x; Z := sin(^);, 

comment place declaration real procediire area2 fiere: 

=real A;, ' * 



^/ ■ A := area2(0, 14159, 5006> z); 

//' ^te Ca); ' \ ' 

end . * - - V > 

Ttie area und^r the sine curve is 2,000, vhile for a semicircle of . 

diameter n the' area is , 3. 876. . T * ' 

^ *(b) Of coT^se, this is not the usual method for printing a logarithm^ 
^ ^ table iThe problem is giv^n td connect- again the area method ^o tlie"' 

introductory discussion of »inx. The correct values of inx are tlese 

X ' " inx X' inx ^ 

V. . ^ -^1 ' ' '0.00000 31 ' 3.^3399 

; ' ,11 .2.39790 * ki 

? 16 2.77259 ^ 

21 » 3.OUU52 51 
26 3»2^SlO 




i(b)» The ALGQL program could be .written: 
begin ' 

4f ^ ^ ^ real proc edure A^al x; y :^ l/x; 

^ ' ' ' coimnent place declaration *area2 here; 

. ii^teger i; real w; ^ ^ ^ 



for i, : = 1 steg 5 u^til 51 do 

begin V := area2(l/i, 5000, y); 

write ("natlog of", i, "=", w); 

. V . 'q :='inti);' - ] 

. write ("in of ^*=V q); 

end; . . ' ^ • , - 

end* > ^ ' ^'"^ ^ ** , ■ 

' . 1 . ' ' • ^ / - ♦ 

The varlabie m indicate* the current number of subdivisions* The 
following revisions to the procedure area (a, b, epsi, f) would 
accomplish the de'sired termination. 

(1) Include an integer I^MAX as an argument of the procedure area^ 
' '(a, b, eps.i^ f, flMAX). Don't forget tp declare UMAX. 

(2) The program through ^he statement 'OLAREA := MJAREA; could'remain the 
same, The rest co\;ld be • 44 ' 

if m < NMAX then ^'to B0X3^ 
» write ("Accii^racy cjriterion exceeded"-^^^^AREA); 
30x9: area := HUAREA; % ' ' » ' ,4? * . 

end area . . f- 
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^ 'i^*,-: (a) begiti 



rea j procedure f{xj; feal x; f : = .ii3<f29/x; 

comment Place pixDcedure .declaration for area here; 

cogmient Place procedure declaration for are62 here; 



Ireal z; integer i; 
for i:=l,2,i+ do 
begin ' ' ' ' 

2r=al»ea2(l.0,3.0,i,f); 

vrite(1.0,S.0,i,2); 
end; ^ 
^z:=area(l.0,3.0,0.001,f); 
write (1.6, 3. 0,0. 001,2); 



end 



r 



(b) begin ^ 

real procedure g('x);. real x; ^:=3 Xx + 2 + 2xx + l; 
comment- JPlace procedure declaratiorS for area here; 
comment Place procedure declaration for ^re'a2 liere; 
• ^ • real z: inl:eger i^ , * 
for i l,2,i^ do, 
begin 

:^:=are^(-2.0,2.0,i,g); s 

vri,te(-2.0,2.0,i,2); 
end; .* < 

z:=area(-.2.0,$.0,0.001,g); 
vrite(-2.0,2.Q,0.001,2); ' " 

end 

(c) begin ' ' - 

; real procedure p(x); real x;^p:=x i 3, - xi2; 
commefti' Place procedure declaration for area here; 
comment . Place procedure declaration for area2 here; ' 
real z; integer i; 
for 1 = 1,2^4 do 

begin - . ' . * * 

2:=area2(l.0,4*0,i,p)- 

vrlfe(l.0,4.0,i,z); / ' ^ 

^ end ; ' - ' 

^ z;=area(l.0,4.0,0.001.p); 
write(l.o;i+.0,0.001,z); 

end 







• 










• 




• 




• 

Compute'd results:-^ 


\ 


r ^ 


• 




Su)5divisions ^ 


epsi 


Area 


• 




•(a) 1 




0-57905 






2 




o'. 50667 








• 10 ^ 


O.U772U 




« 


(b) ■ 1 




52.00 
28.0£?0 




• 


(c) -l. ' 


10 ^ 


22.000 

20.000 / 
72.00 


- 




2- 


i 


50.063 


• 


V 






\U.578 




* 




10 ^ 


U2.75O 






begin 




y * 


0 




real p^ocedur^ ^^^"U 


real x'; sqrt(i^- - 


xt2)5 ■ 






comment place procedure called area here; 








real RESULT; 










RESULT area (O, 2 


, .0001, RESULT); ^ 






write (*'PI equals". 


RESULT); 


) : 






end- 


• * 


\ 






i ' • ' 


* • 




- 


0 

\ 

r 


- M ' 


« 

f 




• 
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. ^ OA? 

^7-f+ Simultaneous Linear Equations : Developing £ Systematic Method of 

Solution ^ ' 

Answers to Exercises A?^^ 

1. begin ^ ^ * 

array a[l:2, 1 :2] / A[l;2,l :2] ; 
^ • - array b[l;2j, B[l,2l, x[l,2j) 

R: read (a[l,l], a[lj2], b[l], a[2,l], a[2,2] b[2] ); ^ 
A[l,l]:=a[l,l]/a[l,a];' ' • . 

A[l,2]:=a[l,2]/a[l,l]; ' * ' 

B[l]:=b[l]/a[l,l]r ^ - ^ ^ . - 

' A['2,l];=a[2,l] - a[2,l] X A[l,l]; 

A[2^2] :=a[2,2] ^'^a[2,l] X A[1,2J;n f. ^ 

^ B[2]:=b[2] - a[2,l] X B[l]; | 

^x[2]:=B[2l/A[2,2]; . / " ' ' . = 

x[l]:=B[l] - A[l,2] X'x[2]; . ' ' . 

write (x[l], x[2]); ^ . ' - 

go ^o' R; • ' . 



2. 



end ; 




* 




« 

(a) X = 1.6250 


y = 


0.75000 




lb) »5c = 1.8636 • 


y = 


0:81818 




(c) X = 2.kl06 


y = 


-i.i^iti - 


ft 


Xd) X = J.. 5600 


• y = 


-2,5000 


V 


(e) X = 0.65217 


y = 


-1.2609 




(f ) = 0.18958 


'^2 = 


: -0.33977 




(g) x^' = 2.1933 


^^2" 


= -0.30269 





Although this program will solve our problems/ we have actually .computed ' 
much more than necessaiy. The next section of the text shows how to 
solve equations more efficiently. J • . - 



TAT . ' 



T1A7-5 Simultaneous Linear Equati<yis' : Gauss Algorijbhm 

^nswers to Exercises AT-? Set A 
> 

1. for •j:=3 step 1 until 3 do 

< • a'[2,j]:=aC2,j]/a[2,2]; ^ 

b[2]:=b[2]/a[2;2]; 

2. j:=;k -f^is^^teg 1' until 3 da 

, a(k;j3;=a^i5/atk>k55' 
^b[k]:=b[k11a[l«,k]5. ' ^ ' / 



3v/ £o£ i :=*k + l ^tep 'l until 3 do 
■ - ' begin V ^ 

for J :=*k -H'^jW step 1 until 3 do - 

afi,j] a[i,j] - ati^k] X alk,j]; 
hii] - a[r,k] xb[k]; ' ' / 

k:=l step 1 until 3 ^* 
^ begin * ' 

^or J:=k + 1 step l until 3 do 

a[k,j]:.=a[k,j]/a[k,k]; 
b[k]:=b[k]/a[k,kr}; 
for i:=k + 1 ste|S ^l until 3 do 
" ^begin * ^ * • ' 

for ji:=k + 1 step 1 until 3 'do 

a[i, j] :=a[l,j] « a[i,k] X a[k,j]; 
:i]:=b[il - aCi,k3 X b[k]; . 
end ; " ' . - ' 

end . • 



10^+ • 



Ansver to Exercise A? -5 Set B 

!♦ The complete ALGOL program for Figure, 7.36 may be written as follows 
. b^g3£ arrajr a[l:3,i:3], bCl:3], x[l;3]; 

. ^ integer i, j, k; . * \ 

LI: .for i;=l .gtep until 3 dp 

for j:=l step 1 until 3 do 
- ' ' read (aCi, j]^ 
^ read (b[i]); ' . " 

' ' end; ' * ^ ^ . ' 

' forv k:=l step £ until-3 dp , . , 



r 



X 



. ^ for j:=k + i step 1* until 3 do^ 

a[k,j]:=a[k,o]/a[k,k]; ^ 
b[k]-:=blk]/a[^jj^rr ' / 
,£2£ 1 ste^ 1 until 3> do 

.begin ' . * » * 

for 'j :=k, 1 fetep 1 until 3 'do ""^^ 

a[i,j3:=a[i,j] -"^d^k] x'a[k,j]; 
b[i}:=b[i] -^a[i,k] x bfk]; 

end , ' ' 

for 1 := 3 step -1 until 1 do , . ^ 
^egin ^ ' ^ ^ 

x[i] :=b(i]; ^ 
for^A := 3 gtep .rl'^' ^ntll i + 1 do 

- ati,j] x x[ jl; .-^ 
end ; ^ ^ ^ * j-^''^'^^ 

for i :s= 1 step \ unlil J do , ' 

^vrite (x[i]); . 



N ^ -to LI 



end 



TAT 



2.; 


(a) 


^1 


= -10.000 








— J. # UvJ^f 






■y 


= I'S li.71 

J.^ . H- ( J. 


« 

^ 






= 2.6279 • 








= -0^23256 






^3 


= -;.8372 


3. ^ 


(a) 




• 

= -3.0619 ^ 








5/9268 






^3 


= 0,13861 • 



(c) = 1.2289 
^ 0. 20^^82 
-0.83133 

^(d) x^^ 2.8l5lf 
x^ = 1.7077 
^x^ = -0.15385 



(b) x^ =^0.66311 
^ x^ = 5. mi' . 

x^ = -1.5221 

' VVj^rswer to Exercise A?-"^ Set C \ 

The p^ocedil^/S. called Gaus^: / 

. ^ .J 

prope^^ture Gauss \A, ^, Id, x). . ' 

"real ^ray a[l>n,' l:n], "blliA], > x[l:n]j 

integer .n; ^ '. ^ ^ \ 

'"T' begin integer i/ j, ic; . ^ 

a;* - ' - 

• foi* k := 1 step 1 until n do • 

begin # ^ 

J for j := k + 1 step 1 until n do - ^ ^ 

^ ' a[k,j] a[k,j]/a[k,k]^ 

* b[k] ■b[k^/a[k,k]; . • 

. £2£ ^ + 1 step 1 UQtil n do ' 

begin ' * . ^ ^' 

' ^ " d := k + i s^tep 1 until do 

' . ' \/ ;a[i,j] := a[l,j] - a[>i-,k] X a[k,j1j 



* , b[i] := b[i] - a[i,k] X b[k]j 

€ 

nd^ 



end; _ • • ^ 



for i := n step -1 until 1 do 
begtrt ; . 

. xlf] :~'b[i]j » . 

^ * £2E J •= 3 step -1 until i + 1 do 
x[j] :=.x[j] - a[i;j] X.x{d]; 
end ; * • 

end Gauss- C , , * 

' 410 . 
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The calling program: 



begin « ^ . ' 

comment place Gaoss here; • 
integer i^ j; * 

^ea^ array r[i:20, 1;20], .s[l:20],. ^[1:20]; 
LI: read (m); • : * . ^ 

for f ;= r step 1 until m do 
begin / t, 

k' j := 1 stap 1 until m do 

^read ^(r[i,j]); 
. read (r[iT); . [ 

' Qnd ; 
Gauss (m, r,^s, t); 

^*t>r i := 1 step 1 until m' dd ' ' 
write (t[i]); • . ^ ^ 

go to LI; • ^ *• 

' end 



■A. 



? 
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Ansver to Exercise A? -5 Set D 



The proce^rje. called Gauss revised to include partial pivoting. (Changes 
are sho;^ in clouds.) 



ERLC 



procisdure Gauss (n,a,b,x^L)) 
{^er^Lj)" 
real array a[l:n, b[l;n], jc(l:n]; 

integer nj . 



begin integey i, k,^|^^^^inax, Qopy;j 
^ fof k := 1 st^ 1 until 'n do 
beffin* 




for j := k + 3, stfep 1 unfiTf Trdo 
Vk,j^ :> a(k,j]/a[k,k]; 
l^^brk] ":= b[k]/a[k,lc];* 

for i := k + 1 step 1 until n do ' ^ 

begin 

for j := k + 1 -step 1 ^until n. do 

ati,j] := a[i,^] - a[i,k] X a[k,j]j 
c / 'b[i]*:= b[i] - a[i,k] Xb[kl; ' 
endj ' . ' v. . 



end; 



ontijiued) 



^ .108 
JL'J. Z 
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1. • fdontinued) . 



-for i := p step -1 until 1^ 

/ * x[i] := bk]; ^ 

, for J := 3 step «1 until i + 1 do 
% - -xtj] := xlj] a[i,j] X x[j]; 

end; 

. end Gauss with partial pivoting 



2/ ^ Wlth p^X^ot: • (a)'f ^1 = I.I805 

. • ' = -0.5^^135 

^ ' ^ ^ '^Q = 0.59398 

• 3 



= 3-9000 
x^ = -0,60000 , 



- .The resul^ts without ^ivot will vary. You may on one hand get an eij^or* . " 
stop/-^r on the other get an output which is Incorrect. 
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